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EDITORIAL 


Chers amis, 


Non, Le poisson d’avril n’était pas l'annonce de la conférence de Chicago ! Elle 
aura bien lieu. Ce n’est pas non plus le 752 aniversaire de Hewlett-Packard ! Ca 
c'était une faute de frappe! En effet c’est aprés avoir recu, en 1938, une 
commande de 8 oscillateurs pour synchroniser le film de Walt Disney Fantasia, 
que Bill Hewlett et Dave Packard ont fondé, en 1939, une société dont vous 
devez sûrement connaitre le nom ! Et quand je dis que le cinéma mène à tout ! 


En fait le poisson d’avril se trouvait dans le Coin des Lex, plus précisément dans 
GINSLEX! Si le source du programme était bien ce qui était annoncé, le listing 
objet simulait un Memory lost puis affichait "POISSON D’ AVRIL" avec un 
poisson défilant sur laffichage! (Le poisson en question étant même une 
baleine!). Dommage que les possesseurs de HP-28 n’aient pas profité de 
réjouissances du même ordre! 


Pourquoi un programme ? Parce que après les 53.7% de réduction chez HP, les 
nouveaux modules en tout genre, et autres informations toutes aussi délirantes, 
vous cherchiez le poisson dès l’ouverture de votre journal préféré, il fallait donc 
trouver autre chose. Rassurez vous, j'ai déjà ma petite idée pour l’année 
prochaine, et là tout le monde en profitera ! 


Plus sérieusement, nous avons décidé de faire, de la même façon que pour la 
HP-71, une Programathèque HP-41. Mais nous avons six ans à ratraper, alors ne 
soyez pas trop pressés. Mais vous pouvez nous aider sur un point: Si nous devons 
faire le catalogue nous même (ce qui devrait déjà nous donner suffisament de 
travail), nous voudrions éviter de retaper tous les programmes. En effet nous 
n'avons aucune copie sous support magnétique. Alors si vous disposez de 
certains de ces programmes, nous sommes vivement interessés ! 


Nous avons pris d’autres décisions du même ordre, mais nous vous en 
reparlerons dans un prochain /PC. En attendant bonne lecture ! 


Jacques Belin (123) 
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SOS 


Messieurs, 


Propriétaire d’une HP-41C avec lecteur de cartes et 
imprimante, je m'adresse à vous pour savoir s’il existe 
une possibilité de création de fichier avec ce genre de 
machine. 


N’étant pas un foudre de programmation, pensez vous 
pouvoir m'aider? Ce serait un fichier de médecins 
avec Noms, Adresse, Téléphone, Horaires et jours de 
visites, Fréquences de rendez-vous ulterieurs, avec 
possibilité d’entrer la date de visite effectuée et 
pouvoir lister par spécialités (4) et par secteurs (3) le 
nom des médecins à voir dans la semaine. 


Ce programme pourrait servir à mon épouse qui est 
visiteuse médicale. 


Quant à moi, je suis à la recherche d’un programme 
me permettant de déterminer en fonction de plusieurs 
paramètres, des limitations de performances avion. 


Exemple : 


Hypotheses: 
| Température extérieure 
| Altitude du terrain 
| Poids au décollage 
| Pente de Piste 
| Effet de Vent 
--> Trouver la longueur de décollage. 


Ce genre de problèmes posés quotidiennement est 
résolu par une recherche graphique relativement 
complexe, compte tenu la réglementation et 
fastidieuse par le temps perdu. 


Je pense que ces programmes existent déjà aux 
U.S.A. pour un type d’avions (BEECH 200). 


Etant pilote sur un FALCON 10, je serais heureux de 


bénéficier de quelques lumières sur la façon de. 


procéder. 
Merci de bien vouloir me répondre, en vous 


souhaitant bon courage à tous. 


Pascal MAGNE 
134 rue de Saussure 
75017 PARIS 
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Messieurs, 


Je possède une HP-28S depuis le début de l’année. 
Ne connaissant rien en informatique, vous serait-il 
possible de me faire parvenir le programme de 
navigation n°1 du module “navigation HP-41C 
retranscrit dans le langage de la HP-28S. 


Par la même occasion, si vous avez d’autres 
programmes à me présenter, je serais interressé. 


Si toutefois vous ne possediez pas le programme de la 
HP-41, je suis prêt à vous expédier celui que j’ai eu 
par l'intermédiaire d’un ami. 


Michel Dupas 
19 Avenue Chanzy 
44000 Nantes 
Tel : 40-74-14-88 


Messieurs, 


Je cherche des adhérents suceptibles de me vendre 
une calculatrice HP-41CX, en bon état de 
fonctionnement, c’est trés urgent pour moi, car on 
vient de me voler la mienne 


P. Luberne 
17 rue du Mûrier 
SERMOISE / LOIRE 
58000 NEVERS 
Tel 66 57 27 31 (bureau) 
66 37 63 22 (domicile) 





CALCULATEURS HP: 
FIN DE SERIE ? 


Depuis l'annonce de la fin de la commercialisation du 
HP-71, nous nous sommes tous demandés quels 
seraient la projets de HP en ce qui concerne les 
calculateurs de poche de haut niveau. 


Avec cet article, basé sur des reflexions personnelles, 
je ne prétends pas vous donner une réponse. Je ne 
prétend pas non plus donner le portrait robot de 
lhypothétique successeur du HP-71. Tout simplement 
qu’a mon avis, la solution miracle n’existant pas, il 
peut y avoir une infinité de solutions. J'espère 
seulement vous montrer l'ampleur des questions que 
le constructeur a du se poser, et quels sont les choix 
qui ont dû être discutés, approuvés ou rejetés. 


Sachant qu’un choix peut en entrainer une dizaine 
d’autres, si je me suis trompé sur une hypothèse de 
départ, le reste sera sûrement faux, j'en suis 
conscient, et j'espère que vous le serez en lisant la 
suite. Si vous avez fait une autre analyse, si vous avez 
d’autres informations qui pourraient confirmer (ou 
infirmer) une hypothèse, ces colonnes vous sont 
évidemment ouvertes. 


Tout d’abord, avant de savoir ce que pourrait être le 
futur, il faut, je pense revenir sur les informations de 
ces derniers mois. La base principale de ces 
informations tient dans deux communiqués de Rob 
Emmons, Chef des produits HP-71 et HP-41 à 
Corvallis. Afin de ne pas vous induire 
(inconsciemment) en erreur, j'ai mis les infos 
officielles en italiques, pour les séparer de mes 
commentaires. 


L’arret du HP-71 


- A partir du ler Novembre 1988, le HP-71B sera retiré 
de la CPL ("Corporate Price List"). Deux périphériques 
associés, le lecteur de cartes (HP-82400A) et le modem 
acoustique (HP-82168A) seront aussi retirés de la CPL 
le ler Novembre 1988. 

Cela tout le monde le sait. Malheureusement. 


- Les périphériques et accessoires conçus pour le HP-71 
et les HP-41CV/CX resteront dans la CPL pour la 
vente et l’utilisation avec les calculateurs HP-41. 

Les seuls périphériques communs aux deux gammes 
sont les périphériques HP-IL. 


- Le support et le service aprés vente (pour le HP-71) 
continuera jusqu'au ler Novembre 1993. 

Cinq ans, c’est l’habitude chez HP. A mon avis, c’est 
un peu faible. 


- Le HP-7I a été utilisé originellement comme un 
collecteur de données allimenté par piles, et comme un 
contrôleur de bas prix. HP n'a pas de produit de 
remplacement équivalent pour ces applications. Par 
conséquent nous vous recommandons de considérer 
vos besoins au delà du 1/11/88 pour vous donner 
suffisamment de temps pour passer sur d’autres 
systemes... 

Là rien ne peut dire si d’une part, HP met en cause le 
concept même du HP-71, ni d’autre part, qu’ils 
proposeront dans un futur plus ou moins lointain un 
produit de remplacement. 

… HP n'a pas de projets actuels pour supporter le 
BASIC HP-71 pour des développements logiciels futurs. 
C'est à dire: plus de modules (ou programmes) 
comme le Text Editor. Ceci veut dire aussi que si il y 
a un successeur au HP-71, il n’y aura aucune 
compatibilité. 


Hewlett-Packard arrête le HP-71 pour un nombre de 
raisons incluant : 


1- Faibles volumes de ventes. Le HP-7I a été une 
demande régulière de la part de "loyaux utilisateurs 
sophistiqués"; Malheureusement, le HP-7I n'a pas 
bénéficié de suffisement de ventes au détail en dehors 
de son succés de groupes d'utilisateurs. 


Autrement dit le HP-71 s’est très bien vendu auprés 
des clubs utilisateurs et de quelques sociétés (comme 
CMT ou BCMW), mais pas ailleurs. Je ne reviendrais 
pas sur la politique de marketing de HP, nous 
sommes tous d'accord... 


2- Coûts de Fabrication en hausse. Dà aux faibles 
volumes nos frais de fabrication sont excessifs. La ligne 
de production utilise beaucoup d'ouvriers et demande 
un support d'ingénieurs substanciel. Le coût d'une 
automatisation de cette ligne est injustifié. Il n'y aucune 
modification possible, qui pourrait faire décroitre les 
coûts et augmenter la sécurité. Aussi le prix des 
composants est élevé. 

Le problème, compréhensible, est celui de toute 
industrie. 


3- Vieille technologie. Plusieurs composants du HP-71 
sont devenus obsolètes et sont devenus dificiles à 
trouver. 

En effet, il n’y a pas eu la même évolution interne que 
pour la HP-41. 


En résumé, si le HP-71 s'était plus vendu, HP aurait 
pu (ou voulu) faire évoluer le HP-71 et sa technique 
de fabrication. 


Ce que devient la HP-41 


La HP-41 est maintenant dans sa dixième année, un 
phénomène remarquable en électronique! Il se vend 
bien de façon constante et continue à être une solution 
viable pour le marché des calculateurs de poches 
modulaires. Par contre, dû à des ventes décroissantes et 
à une technologie changeante, plusieurs péripheriques 
et options seront abandonnés cette année. 

Ce sont: 

- Le lecteur de cartes, 

- l'imprimante thermique HP-IL (HP82162), 

- le lecteur de code-barres, 

- les versions de HP-41 avec claviers non marqués. 

La fin de fabrication aura lieu le ler Mars 1989. 

La HP-41 continue donc, mais sans ses peripheriques 
les plus portables. Notez aussi que le S.A.V. 
continuera jusqu’en Mars 1994 (pour ces 
périphériques). 
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Le pré-abandon de l’HP-IL 


HP n'a pas de projets pour développer quelque futur 
produit avec l'interface HP-IL. 

Cela ne veut pas dire que les autres produits HP-IL 
déjà fabriqués par HP seraient arrêtés, comme nous 
l’avions pensé, cela confirme ce qui est marqué dans 
le chapitre HP-71. De toute façon, si je me le rappelle 
bien, les derniers périphériques HP-IL développés 
par HP doivent être La Thinkjet et le lecteur de 
disquettes 9114. Ca fait déjà quelques années... 


Par contre la division de HP "Northwest Integrated 
Circuit Division" (NID) continuera à produire des 
circuits HP-IL pour la vente à d'autres clients de la 
même façon qu'elle le fait actuellement. Si il y a une 
décision à une date future d'arrêter la production, les 
acheteurs auront le temps suffisant pour décider d'une 
autre stratégie. 

En bref, si vous voulez d’autres périphériques HP-IL, 
vous aurez toujours (pendant un certaint temps) la 
possibilité de sortir votre fer à souder. 


Le Programme ICC 


le programme ICC qui a été créé afin de supporter le 
développement et la production de Roms Utilisateurs 
(par exemple les Rom PPCROM ou CCD), 
continuera à être disponible aussi bien pour des 
révisions et des renouvellements de commandes, que 
pour toute nouvelle application dans un futur proche. 
HP anticipe actuellement que le programme devrait 
continuer pendant encore deux ans. Dà à des volumes 
de fabrication décroissants, il y a une possibilité 
d'augmentation des coûts de ces Rom …/.… La future 
direction de HP est d'utiliser des support de logiciels 
standards éliminant le besoin d'utilisation de Roms 
spéciales. 

Cela rentre dans la stratégie de comptabilité de HP. 
Mais après tout, les circuits de la HP-28 (par 
exemple) sont quand même spécifiques, Il faudra 
donc savoir jusqu’ou HP veut aller... 


Et dans le futur ? 


Faisons le point. Tout ce qui concerne le HP-71 est 
arrêté, le HP-41 continue, mais avec ses 
périphériques qui commencent à diparaitre, et 
PHP-IL n’est plus utilisée que pour cette machine. 


Maintenant, la première hypothèse. HP sort un 
successeur au HP-71. Sous hypothèse de travail, 
l'annonce en est faite le 3 juin pendant la conférence 
de Chicago. Première critique, Absolument rien ne 
nous confirme que le constructeur, après l'échec du 
HP-71, veuille renouveler l’experience. Dans ce cas, 
tout ce qui suit est à mettre au panier. 
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En ce qui concerne la date, l’interêt est à voir plus 
bas, au chapitre des standards. Et là aussi rien ne 
nous dit que HP ne vienne à la conférence pour 
déclarer quoi que ce soit. 


Abordons le sujet par le coté utilisation. A quoi sert 
un ordinateur de poche ? Ici donnez votre utilisation 
habituelle. A quoi ne sert pas un ordinateur de 
poche ? Surement pas à faire tourner AutoCad ou les 
programmes de la météorologie nationale. Je veux 
dire par là que ce genre d'utilisation ne se fait que 
dans un endroit fixe, son bureau par exemple, et non 
sur un ordinateur de poche. Il n’a pas besoin non plus 
d’avoir une vitesse foudroyante, on ne lutilisera pas 
pour calculer deux cents mille vecteurs par seconde, 
mais plutôt avec un traitement de texte, voire un 
compilateur pour quelques petits programmes, peut 
être à la rigueur avoir la possibilité de lancer une 
tache de fond, mais sans plus. Ce qui veut dire qu’il 
est inutile d’avoir une mémoire de 15Mo, ni d’avoir 
une résolution d’écran de 1024x1024. Mais si la 
mémoire principale ne devrait pas exceder 256 ou 
512ko, il est trés interressant d’avoir un disque virtuel 
de quelques Mo. Tout ceci est une opinion 
personnelle, mais puisqu'il faut prendre une 
hypothese de travail, autant prendre celle là. De toute 
façon, les differences entre les différents concepts ne 
doivent pas être énormes. 


Quel standard ? 


L'autre problème utilisateur est le système 
d'exploitation. Je peux avancer 2 hypothèses, et 
seulement deux. Mais d’abord un observation. La 
stratégie informatique de Hewlett-Packard se base 
actuellement sur deux standards : MS/DOS et Unix. 
Apres l'arrêt du HP-71, on peut être à peu prés sûr 
que si une nouvelle machine doit sortir, elle ne pourra 
qu’avoir un de ces standards, et si aucun de ces 
standards n’est possible, HP ne sortira rien. 


Première hypothese donc, MS/DOS. 
Personnellement je considère ce standard comme le 
VHS de l'informatique. C’est à dire, un des plus 
mauvais standards, arrivé à la consécration on ne sait 
trop comment, aprés être sorti alors que d’autres 
standards plus performants existaient déjà sur le 
marché. C’est maintenant la standard numéro un 
pour encore de longues années. Il est connu par 
pratiquement par tous les informaticiens, et par 
beaucoup d'étudiants, donc commercialement, c’est 
une valeur sûre. Techniquement, cest aussi la 
solution la plus simple, et demandant le moins de 
mémoire. Actuellement, il ny a que peu de 
concurence, avec quelques terminaux de saisie, et le 
petit compatible de poche Atari, mais ce dernier ne 
doit pas être trop dificile à égaler, au vu de ces 
relativement faibles possibilités. Mais on peut 


aisément penser que d’ici quelques années, le marché 
risque d’être trés encombré.. 


Deuxième hypothèse : Unix. C’est le standard des 
années 90. Mais dans le cas qui nous intéresse, c’est le 
casse-tête de l’année. En effet, connaissant l’espace 
mémoire requis par ce système d’exploitation, Il 
faudra des trésors d’ingéniosité à HP pour tout faire 
entrer dans une machine de poche, voir le chapitre 
Hard à ce sujet. Commercialement ce serait une 
grande première, même si les ventes se font désirer 
au début. C’est surement un risque à prendre, car 
l’image de HP comme constructeur de très haut 
niveau ne ferait qu’y gagner. 


J'ai précédement mentionné la date du 3 Juin. Elle 
est peut être un indice de réponse. En effet, sachant 
que HP appartient à l'OSF, (une association de 
constructeurs visant à établir un Unix universel, et 
concurente de Unix Internationnal, visant le même 
but, mais avec une autre version d’'Unix!) et sachant 
que la dite OSF devrait sortir sa version d’Unix à la 
fin de l’année, on peut penser, si l'hypothèse Unix est 
la bonne, que si HP annonce un produit sans en 
annoncer la date de disponibilité, que ce pourrait être 
la première version de l’'Unix OSF. Cette annonce 
aurait donc pour but de démontrer la supériorité de 
cette version d’Unix, en l’appliquant d’origine sur un 
ordinateur de poche. Sinon ce serait le classique 
HP-UX. 


Mais le choix de l’un ou l’autre des standards est très 
dépendant des choix technologiques. C’est ce que 
nous allons voir. 


L'architecture interne 


Autre hypothèse majeure. Aprés le HP-41 et le 
HP-71, Hewlett-Packard continuera à développer des 
circuits spécifiques pour un modèle de machine. Ceci 
n'est pas sur en lisant le communiqué concernant le 
programme  ICC. Mais les circuits existant 
actuellement dans la commerce ne permettent pas 
encore de faire une carte mère complète de type 
IBM PC de la taille qui nous interresse. A ma 
connaissance, la plus petite carte IBM comportant 
640 ko de mémoire, un contrôleur de disque, un 
contrôleur d'écran EGA, des liaisons séries et 
parallèles et un connecteur de Bus XT, fait à peu prés 
20 cm de coté. Mais si elle utilise une majorité de 
CMS, la plupart des composants sont assez classiques. 
C'est donc plutôt une intégration qu’une création 
pure. De plus cette carte étant sortie il y a à peu prés 
2 ans, on peut espérer une évolution significative sur 
l'intégration des composants. 


e. 


Tout d’abord quel serait le  micropocesseur? 
Extèrieurement, je pense que l'esprit du processeur 
Titan devrait être gardé. A savoir un bus de données 
et d'adresses réduit, et le minimum de signaux de 
contrôle. Dans l'hypothèse MS/DOS, il faut ajouter 
une contrainte suplémentaire, la comptabilité 
logicielle avec la série 80X86 d'Intel. On pourait ainsi 
imaginer un 8086sx, c’est à dire un 8086 avec un bus 
multiplexé de 4 bits. Donc une importante perte de 
vitesse. Par contre avec l'hypothèse Unix, on est 
beaucoup plus libre sur le choix du microprocesseur, 
et on peut donc utiliser le concept du processeur 
Titan: un petit bus externe et des registres internes 
importants, limitant le nombre d’accès mémoire. Un 
autre problème, doit-on mettre un co-processeur 
arithmétique? Les quelques programmes qui en 
obligent l’utilisation sont par exemple Auto Cad (les 
dernières versions), mais j'ai déjà dit que nous ne 
ferions pas tourner ce programme sur un O.P. Mais, à 
mon avis, la possibilité doit quand même exister. 


Le problème crucial est la mémoire. Sur ce point 
MS/DOS est gagnant, car moins gourmand. Mais 
tout d’abord on peut penser que HP mettra le 
système d'exploitation en Rom. Ceci a deux 
avantages: les circuits Rom sont plus petits que les 
Ram de capacité equivalentes, d’autre part cette Rom 
étant fixe, on a plus la possibilité d'utiliser des points 
d'entrées standardisés, et donc de réduire la taille 
totale du code. Mais si MS/DOS serait à peu près à 
l'aise avec 256ko de Rom, il faudrait à peu près 5Mo 
pour un Unix minimal. 


Heureusement, la différence est moins importante en 
ce qui concerne la mémoire vive. 512 ko pour 
MS/DOS et 1 Mo pour Unix. Les meilleurs circuits 
disponibles actuellement font 1 Mbits, soit 128 ko. En 
CMS, le taille totale nécessaire est tout à fait 
intégrable dans un calculateur de poche. En ce qui 
concerne la pénurie des Rams, je ne pense pas que 
cela arêtera HP. 


Ceci était la mémoire de travail. Il faut aussi penser à 
la mémoire de masse. C’est à dire un disque 
électronique (indispensable pour utilisation 
réellement portable). Il y a là aussi plusieurs 
possibilités. La première consiste à mettre tout le 
disque en mémoire interne. Il faudrait dans ce cas 
plusieurs Mo. Une autre solution plus souple consiste 
à mettre le disque électronique sous forme de cartes 
enfichables Ces cartes pouraient faire quelques 
centaines de ko. La troisième solution, la plus 
rationnelle à mon avis, est de mixer un disque interne 
(de 512 ko environ), et des cartes mémoires (de 128 
ko environ). Ce serait amplement suffisant pour un 
système portable. 
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L'écran 


Un écran de 25 lignes de 80 caractères est il 
obligatoire ? Pour les deux options, si on veut utiliser, 
sans les adapter, des logiciels tournant sur les autres 
micros, je pense que c’est obligatoire. (Tiens en 
passant, pourquoi ont-ils mis Lotus 1-2-3 en Rom sur 
le petit Atari? Peut être que la "grande" version ne 
tourne pas avec cette configuration d'écran.) En 
effet, s’il est possible d'utiliser un écran plus petit 
comme fenêtre d’un plus grand écran, c’est 
totalement anti-ergonomique. Quant à la taille 
physique, il faudrait un écran de la taille du 
calculateur, qui se présenterait comme un portefeuille 
pliable. Dans l'option MS/DOS, il lui faudrait être au 
moins compatible Hercules, donc avoir une résolution 
de 640x400. Je n’en ai pas encore vu de suffisemment 
petit (environ 10x15 cm) mais cele ne veut pas dire 
que cela n’existe pas (je ne parle pas seulement de la 
surface d’affichage, mais des dimensions totales de 
l’afficheur). 


Les entrées sorties et les périphériques 


HP ayant décidé d'abandonner le concept de l'HP-IL, 
on peut se demander quels seraient le types d’entrées 
sorties présentes sur un nouveau calculateur de 
poche. Dans l'hypothèse MS/DOS on pourrait 
imaginer un bus IBM, même incomplet. C’est l'option 
proposée par l'ordinateur de poche d’Atari. 
L'avantage est que l’on arrive dans un terrain connu 
pour les développeurs de péripheriques, et de 
fabriquer des interfaces trés simples vers les 
péripheriques déjà existants. Il serait donc facile de 
créer un lecteur de disquettes externe et autonome, à 
partir de lecteurs 3/2" existant dans commerce. Il est 
trés possible de faire un lecteur faisant la moitié du 
9114, (incluant le contrôleur et les accus) et 
consommant beaucoup moins. Parmi les autres 
interfaces dédiées, il serait aussi possible de faire par 
exemple une interface vidéo, mais dans ce cas les 
contraintes d’encombrement et de consomation 
seraient beaucoup moins importantes, car de toute 
façon on utiliserait la vidéo dans un lieu fixe. 


Par contre il est toujours intéressant d’avoir une 
liaison RS-232 intégrée. 


Et surtout que ces périphériques soient disponibles 
dés la sortie de la machine, pour ne pas renouveler 
l'erreur de l’Atari, et des autres produits équivalents, 
qui doivent se connecter à un IBM PC complet à 
chaque fois qu’on veut charger un fichier en 
mémoire... 


Mon Pronostic ? 
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En fait, je n’en ai pas! Comme vous le voyez, il y a 
aussi bien des choix commerciaux que des possibilités 
techniques, et ce sont seulement les ingénieurs HP 
qui pouraient donner une réponse, mais je préfère les 
laisser travailler! Mais si vous avez une idées précise, 
découlant d’une analyse peut être différente, n’hésitez 
pas à nous la confier. Date limite de réception des 
copies, le 3 Juin ! 


Jacques Belin (123) 





LE HP-21S 


Un nouveau calculateur, "destiné à éliminer les tables 
statistiques", doit sortir en Juin 1989. 

Le HP-21S est le premier calculateur conçu 
spécialement pour des étudiants en classe de 
statistiques. Hewlett Packard déclare que ce 
calculateur remplacera les tables de distribution 
utilisées en statistiques. 


En voici les possibilités : 


Statistiques : 

- Sommes, moyennes, echantillons, déviations dans 
une population standard. 

- Régression linéaire, coefficient de corrélation, 
pente, interception, prévisions. 


Probabilités : 

- Combinaisons, permutations, générateur de nombre 
aléatoires, 

- Distributions: normale, student’s t, Chi-carré, F et 
leurs inverses. 


Programmes internes : 

- Time value & money : valeur présente, valeur 
future, loyers, terme (nombres de loyers), intérets 
composés, 

- Tests statistiques avec un ou deux échantillons, 

- Tests statistiques sur régression linéaire, 

- Tests statistiques sur le Chi-carré, 

- Distribution binomiale. 


Fonctions mathémathiques essentielles : 
- Mise au carré, exponentielle, racine carrée, inverse, 


- Logarihmes, fonctions  trigonométriques, Pi, 
pourcentages, différence de pourcentages, 
factorielles, valeurs absolues, partie entière, partie 
fractionnaire, arrondi, 


- Modes degrés, radians, grades, 
- Conversions : polaire/rectangulaires, degré/radian, 
heures-minutes-secondes/heures. 


Programmation : 

- Mode algébrique, 

- 10 registres de stockages, 

- 99 pas de programmes, 

- 16 labels utilisateurs, sous programmes, deux tests 
conditionnels. 


Présentation physique : 

- Affichage 1 ligne, 12 digits, 

- Dimensions : 3.1" x 5.8" x 0.6" 
- Alimentation : 3 piles boutons. 


Prix : 49,95$ 
Une seule question: Qui pourra me dire quand HP 


sortira son 100èME Calculateur-avec-des- 
caractéristiques-uniques ? 


Jacques Belin (123) 


COURRIER DU COEUR 


Pierre DAVID 
33, bd Saint Martin 
75003-PARIS 


Vend : 


Imprimante ThinkJet HP 2225 : 1500 FF, 
Eprom CMT 64ko (Front Port) : 1000 FF. 


Jean REIBEL 

9 Square Victor Fleming 

92350 LE PLESSIS-ROBINSON 
Tél: (1) 46 31 46 11 


Vend : 


HP-42S : 800 FF (sous garantie); Pour HP-41 : 
module X-MEMORY 500 FF; module GAMES 100 
FF; module ADVANTAGE 400 FF. Pour HP-71 : 
module FINANCE 400 FF; Périphérique HP-IL: 
interface vidéo 400 FF; 


Eric GENGOUX 

8 rue de Furstenberg 
75006 PARIS 

tel : (1) 46 33 65 79 (soirée) 


Vend : 


Imprimante ThinkJet HP2225B : 2000 FF, moniteur 
vidéo 12 pouces Taxan, écran vert 700 FF, 
Mini-table traçante Sicape-Tandy (alim. par bloc 
secteur fourni, convertisseur HP82166A incorporé), 
état neuf : 650 FF, HP28C-1BB, étui cuir, état neuf : 
600 FF, ainsi que tous ouvrages publiés sur la HP-41 
(Cagire et Synthetics), prix à débattre. 


Jean Louis ATTENOUX 
70 rue Danton 

91330 YERRES 

Tel : (1) 43 96 90 93 


Vend : 
Pour cause double emploi, un HP-71B + 


alimentation secteur : 1800 FF, avec toutes docs, 
factures; Module HP-41 Emulator / Forth : 500 FF 


Daniel LAMAS 

3 rue des Lacs 
91350 GRIGNY 
Tel : (1) 69 43 04 49 


Vend : 


Module Aviation (avec doc) pour HP-41 + livre 
Autour de la boucle : 100 FF + port (20 FF) 
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JEU DU BACCARA 


Je profite du week-end pour vous envoyer un petit 
programme de jeu de casino: le BACCARA. 


Il m’a permis d’agrémenter mes mornes cours de 
math de parties endiablées, j'ai passé avec ce 
programme de très bons moments. 


Références : 
- Jeux & Stratègie n° 10 pour les règles du Baccara et 
la matrice du programme DECI. 


Le programme joue avec les règles normales du 
Baccara a savoir : 


Le but du jeu est d’atteindre 9 points. Celui qui est le 
plus proche de 9 gagne. L’as vaut 1 et les figures (ou 
"bâches"} et dix valent 0 points; les autres cartes sont 
comptées pour leurs valeurs nominales : le deux vaut 
2, le sept 7, etc. Le total des points réalisés à l’aide 
de plusieurs cartes tient compte uniquement du 
chiffre des unités : 2 six (qui font 12) valent 2, 3 sept 
(qui font 21) valent 1. 


Déroulement de la partie : 


Le joueur reçoit 2 cartes puis la banque reçoit à son 
tour 2 cartes. Si l’un des deux a 8 ou 9; le joueur et la 
banque montrent alors leur jeu. 


Si aucun des deux n’a 8 ou 9; le joueur peut demander 
une troisième carte qui lui est donnée face visible (la 
banque connait donc sa valeur). 


Alors, en fonction de son jeu et de la troisième carte 
du joueur le banquier décide ou non de tirer à son 
tour une troisième carte. Après ceci, le joueur et le 
banquier montrent leurs jeux. 


Le meilleur gagne. S'il y a égalité, la partie est 
déclarée nulle et le joueur reprend sa mise. 


Voici la liste des différents programmes et leurs rôles: 


CI, CB, CT, MISE, RESER 

Variables utilisées par les programmes : 
cJ : total du joueur 

cB : total de la banque 

CT : troisième carte du joueur 

MISE : mise du joueur 

RESER : crédit dont dispose le joueur 


BACA 
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Programme principal. On démarre le jeu en lançant 
BACA. Il fait appel aux autres programmes. 


BACA 
« WHILE 
IF RESER 0 # 
THEN PRES 0 ’CJ'’ STO 
0 ‘CB’ STO O 'CT' STO 
ICT! STO 
“Vous avez = !! RESER -STR + 
"Frs." + 2 DISP 
DO 3 CLLGN 
Votre mise (O=FIN) ?" 
3 DISP 4 LINP STR+ 
UNTIL DUP 
RESER < DUP 
IF NOT 
THEN SWAP 
DROP 
END 
END MISE’ STO 
END MISE O # 
RESER 0 # AND 
REPEAT AFDB TIRA 
1CB' STO TIRA ‘CB’ 
STO+ ARRON 
IF CJ 7 > CB 7 > OR 
THEN CLLCD 
“Huit ou neuf!" 1 
DISP ATEN 
ELSE AFDI 
IF DECI 
THEN TIRA DUP 
!CB' STO+ ARRON 
CLLCD 
“La banque tire un " 
SWAP +STR + 1 DISP 
ATEN 
END 
END FINP 0 
!MISE' STO 
END 


» 


AFDB 
Ce programme tire les première et deuxième cartes 
du joueur et les affiche avec le total du joueur. 


AFDB 

« CLLCD TIRA DUP 
1CJ! STO +STR 
“Votre 12 carte vaut = 
SWAP + 1 DISP TIRA 
DUP ’CJ' STO+ ARRON 
+STR 
"Votre 2? carte vaut 
SWAP + 2 DISP 


“Votre total vaut 
CJ +STR + 3 DISP 
ATEN 


» 


AFDI 

Ce programme demande au joueur s’il désire tirer 
une troisième carte et si oui la tire et affiche le 
nouveau total du joueur. 


AFDI 
« CLLCD 0 
DO DROP 
“Une 32 carte (O/N) ?" 
1 DISP 2 LINP 
UNTIL DUP € "O" 
NY } SWAP POS 0 ç 
END CLLCD 
IF MO" == 
THEN TIRA DUP ’CJ' 
STO+ DUP CT’ STO 
ARRON -STR 
“Votre 3° carte vaut = !! 
SWAP + 1 DISP 
"Votre total vaut 
CJ +STR + 2 DISP 
ATEN 
ELSE 10 ‘CT’ STO 
END 


» 


FINP 

Ce programme affiche le total du joueur et celui de la 
banque à la fin d’un coup, compare les résultats ct 
annonce qui a gagné. Il attribue la mise ou l’enlève 
automatiquement suivant le résultat. 


FINP 
« CLLCD 
“Votre total est 
CJ +STR + 1 DISP 
Le total banque 
CB +STR + 2 DISP 
IF CB CJ > 
THEN 
La banque gagne.." 
MISE 'RESER’ SWAP 
STO- 
END 
IF CB CJ < 
THEN 
"Vous avez gagne bravo! 
MISE 'RESER' STO+ 
END 
IF CB CJ == 
THEN 


"Nous sommes a egalite" 
END 3 DISP ATEN 
IF RESER 0 == 
THEN CLLCD 
“Vous avez tout perdu et 
La maison ne fait pas 
credit. Au revoir..." 
1 DISP ATEN CLMF 
END 


» 


DECI 


Ce programme est le coeur du jeu car c’est lui qui 
indique à la banque si elle doit tirer une troisième 
carte. Si DECI renvoie 1, la banque tire, si DECI renvoit 
0 elle ne tire pas. Vous pouvez modifier le 
comportement de la banque en modifiant DEc1 (faire 
prendre + ou - de risque à la banque). 


DECI 
« 
IF CB 3 < 
THEN 1 END 
IF CB 7 > 
THEN 0 
END 
IFCB32>CB6S< 
AND 
THEN 
CE TEUT LT AT O0 
E 0; 0111412050: 171 
[0000111001] 
[000000110071] 
CB 2 "07 1.+2 
+LIST GET 
END 
» 
ARRON 


Ce programme ARRONdit le total du joueur et celui de 
la banque au chiffre des unités. 


ARRON 

« !CJ' RCL 10 / FP 
10 * ’CJ” STO CB’ 
RCL 10 / FP 10 * 
‘CB’ STO 


» 


TIRA 

Ce programme tire une carte comprise entre 1 et 13 
(13 pour simuler la présence des figures) puis 
arrondit le tirage à 0-9. 
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TIRA 
« RAND 13 * 1 + IP 
IF DUP 9 > 
THEN DROP 0 
END 


» 


ATTEN 
Ce programme affiche un message et attend que le 
joueur appuie sur une touche. 


ATTEN 
« 
“Presser une touche! 
4 DISP 
DO 
UNTIL KEY 
END DROP 


» 


PRES 
Ce programme affiche le nom du jeu au début. 


PRES 

« CLLCD 
2 * BACCARA * !! 
1 DISP 


» 


CLLGN ( CLear LiGNe }) 
Ce programme prend un nombre n dans la pile et 
efface la n° ligne. 


CLLGN 
« "1 SWAP DISP » 


LINP (Line INPut) 
Ce programme prend un nombre n dans la pile et 
simule un input sur la n° ligne. 


LINP 
« + LGN 
« LGN CLLGN "" 
DO 
DO 
UNTIL KEY 
END +STR 
UNTIL DUP ROT 
SWAP 
IF DUP "ENTER!" 
# 
THEN + SWAP 
IF MBACK! == 
THEN DUP 
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SIZE 5 - 1 SWAP SUB 
LGN CLLGN DUP LGN 
DISP 
END 0 
ELSE DROP SWAP 
DROP 1 
END SWAP DUP 
LGN DISP SWAP 
END CLMF 
» 


» 


Les jeux sont faits, rien ne va plus ! 


Jérôme Devémy (495) 


HP42 


J.L. Attenoux La loxodromie 14 
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LA LOXODROMIE 


Introduction : 


Ce programme permet de calculer tous les 
paramètres d’une Loxodromie. Pour les non initiés, 
sachez que la loxodromie est une façon particulière 
de se déplacer sur Terre. Ce mode de déplacement 
permet à partir d’un point de départ "D" de rallier un 
point d’arrivée "A" en gardant une route vraie 
constante. Détaillons un peu plus la chose... 


Vous n'êtes pas sans savoir que notre bonne vieille 
Terre possède un mode de repérage à sa surface. Je 
veux bien sûr parler de la Latitude notée "L" et de la 
Longitude notée "G". Tout point à la surface du globe 
est défini par : 


- Une Latitude comprise entre 90°N et 90%S : 
N = North = Nord. 
S = South = Sud. 


Le 0° de latitude correspond à l'équateur terrestre. 


- Une Longitude comprise entre 180°E et 180°W : 
E = East = Est. 
W = West = Ouest. 


Le 0° de longitude correspond au méridien de 
Greenwich. 


Remarque en ce qui concerne les unités et mesures 
employées : 

1° = 60 minutes d’angle. 

1 minute longitude = 
l'équateur. 

1 NM = 1852 mètres. 


1 mille nautique (NM) à 


Par exemple Paris se situe en (48°45N - 002°20'E) 
comprenez 48 degrés 45 minutes de Latitude Nord et 
2 degrés 20 minutes de Longitude Est. 


La manière la plus efficace d’aller d’un point "D" à un 
point "A" est de progresser suivant un arc de grand 
cercle, c’est-à-dire un cercle dont le centre se situe 
précisément au centre de la Terre. Nous verrons plus 
en détail dans un prochain article cette méthode 
appelée "Orthodomie". Mais ce mode de déplacement 
n’est pas évident à respecter car la route vraie, 
c’est-à-dire l’angle que fait votre trace au sol par 
rapport au Nord géographique terrestre n’est pas 
constant. 
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La loxodromie est quant à elle plus simple à 
respecter. A lerreur près de la déclinaison 
magnétique* (qui sur de courtes distances ne varie 
pas), c’est le parcours que vous effectueriez en 
gardant sur une boussole un angle constant entre 
votre direction et l’aiguille qui indique toujours le 
nord magnétique (à condition que votre boussole ne 
subisse aucune accélération horizontale). 


Mode d’emploi du programme. 


En premier les variables : 


La-D : Latitude du point de départ. 
La-A : Latitude du point d’arrivée. 
Lo-D : Longitude du point de départ. 
Lo-A : Longitude du point d’arrivée. 
tL4 : Ecart de latitude en minutes. 
+G+ : Ecart de longitude en minutes. 


Le : Latitude croissante. Ceci correspond à une 
valeur moyenne de la latitude entre les points "D" et 
"A", valeur plus performante qu’une simple moyenne 
arithmétique. 

V.: Valeur d’angle intermédiaire (compris entre 
-90° et 90°). 

Rv _: Route vraie en degrés. 

m : Distance à parcourir en milles nautiques. 


En deuxième lancement du programme : 


Il s’effectue au travers du menu SOLVER. Vous disposez 
d’un certain nombre de sous-programmes, chacun 
représentant une équation permettant de résoudre la 
loxodromie. De cette façon vous pouvez résoudre 
n'importe quel problème à partir des données dont 
vous disposez. 


Les sous-programmes sont : 
Nom _: Equation ou fonction réalisée 


N:>L< : ÎLI = 60*(La-A-La-D) 

N:>G< : +G+ = 60*(Lo-A-Lo-D) avec un test pour les 
trajets au voisinage du méridien 180°E ou 180°W, 
c’est le même... 

N:lc : Le = LcA-LcD 

avec LeX = P1/(180*60)*LNC(TANCLX/2+45)) 

N:V  : TAN(V) = +G-+/Lc 

N:RvV : Rv est la détermination quadrantale de v qui 
se fait grâce à Le. 

Nim : m*COS(V) = IL] 

Loxo Sous-programme  d’initialisation du 
programme. Il permet de détruire les variables avant 
de résoudre un problème si vous le désirez. 


En dernier. les conventions de signe et les formats de 
nombres : 


Ces conventions sont nécessaires pour s’y retrouver 
entre les degrés de latitude Nord ou Sud et les degrés 
de longitude Est ou Ouest. On devra respecter : 


Au Nord : Signe positif pour la latitude. 
Au Sud : Signe négatif. 

A l'Est : Signe positif pour la longitude. 
A l'Ouest : Signe négatif. 


Déplacement vers le Nord : Signe positif pour 1L1. 
Déplacement vers le Sud : Signe négatif pour LL. 
Déplacement vers l'Est : Signe positif pour +G+. 
Déplacement vers l'Ouest : Signe négatif pour +6+. 


Les nombres doivent être exprimés en degrés 
décimaux et non pas en degrés minutes secondes pour 
des problèmes d’arrondis. Pour cela vous disposez des 
fonctions -HR et -HMs pour effectuer les conversions 
adéquates. La calculatrice devra être positionnée en 
mode DEG. 


Exemple d'utilisation : 


Vous partez de Paris Charles-de-Gaulle (49°N 
2°30°E) à bord d’un Boeing 747 de la compagnie 
nationale AIR FRANCE en direction de Tahiti Faa 
(18°55S 149°45°W). Quelle route allez-vous suivre si 
le commandant de bord décide de suivre la 
loxodromie Paris-Tahiti ? 


Entrez dans le menu SOLVER : [Shift] [SOLVER] 


- Choisissez le sous programme "N:>L<" et entrez dans 
"La-0" la latitude de Paris, celle de Tahiti dans "La-A" 
(-18.55 LShift] [CONVERT] [-HR]). 

- Demandez le calcul de "tL1" (résultat : -4075). 

- Sortez par la touche (EX1T1 et demandez "N:>G<". 

- Entrez "Lo-D" (2.3 [-HR]) et "Lo-A" (-149.45 [-HR]) et 
calculez "-G+" (résultat : 9135’). 

- Sortez par (EXIT] et entrez dans la fonction "N:Le". 

- Effectuez la résolution de "Le" (résultat 
-4538.2827). 

- LEXIT] puis "N:V". 

- Appuyez deux fois sur “V" pour solutionner cette 
variable (résultat : 63.5817). 

- Sortez et allez dans "W:Rv". 

- Calculez "Rv", vous devez trouver 243.5817 soit une 
route à suivre au 243°35 environ. 


- Dernier point à éclaircir : la distance loxodromique 
Paris-Tahiti. Rien de plus simple, sortez par la touche 
[EXIT] et demandez "N:m". 

- Appuyez deux fois sur "m' votre machine doit vous 
répondre -9158.9372 soit en arrondissant 9160 NM ou 
près de 17000 km. 


En conclusion : 


Même si la loxodromie n’est pour vous que d’un 
intérêt secondaire, cette application donne je crois un 
bon exemple de ce que l’on peut faire grâce à la 
fonction soLve. Le partitionnement du problème en 
sous-programmes réalisant une équation, a le mérite 
de permettre de résoudre le problème quelles que 
soient les données que vous possédez au départ. 
L'exemple donné montre la démarche logique, mais 
on aurait très bien pu formuler le problème de la 
sorte : au départ de Paris (49°N 2°30°E), vous suivez 
une loxodromie de Route vraie égale à 243°35 
pendant 9160 NM. Quelles sont les coordonnées 
géographiques du point d’arrivée ? 


Jean Louis Attenoux (83) 


*La déclinaison magnétique est l'angle que fait le nord 
magnétique par rapport au nord géographique encore appelé nord 
vrai. En france en moyene, cet angle est de -3°, soit une 
déclinaison magnétique de 3°W. 


00 {356-Byte Prgm} 
01 LBL A 

02 ENTER 

03 SIGN 

04 PI 

05 -DEG 

06 ENTER 

07 RI 

08 ABS 

09 X<Y? 

10 GTO 00 

11 - 

12 + 

13 * 

14 +/- 

15 RTN 

16 LBL 00 

17 LASTX 

18 RTN 

19 LBL B 

20 2 

edf 

22 45 

23 + 

24 TAN 

25 LN 

26 PI 

27 / 

28 1.08E4 
29% 

30 RTN 

31 LBL "N:>L<!! 
32 MVAR ‘“La-D'" 
33 MVAR ‘“La-A' 
34 MVAR “ILI" 
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35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
T5 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 


RCL !'La-A'! 
RCL- "La-D' 
60 

* 

RCL- "fLI" 
RTN 

LBL "N:>G<!! 
MVAR "Lo-D'! 
MVAR !Lo-A' 
MVAR "+-G-1 
RCL !"'Lo-A'! 
RCL- "Lo-D' 
XEQ A 

60 

* 

RCL- MG 
RTN 

LBL "N:Lc!' 
MVAR "La-D'' 
MVAR "La-A!! 
MVAR "Lc'! 
RCL "La-A'" 
XEQ B 

RCL !"'La-D'! 
XEQ B 

RCL- "Lo!" 
RTN 

LBL "N:V" 
MVAR "+-G-11 
MVAR "Lc'! 
MVAR "V! 
RCL nent 
RCL/ "Le! 
ATAN 

RCL- “y 
RTN 

LBL MN:Rv'" 
MVAR "Vi! 
MVAR "Lc!' 
MVAR "Rv!! 
RCL MRv'! 
RCL "V' 

PI 

+DEG 

RCL "Le!" 
X>07 

GTO 01 

RI 

+ 

RTN 

LBL 01 

RI 

ENTER 

+ 

MOD 
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93 RTN 

94 LBL "N:m" 
95 MVAR "LI" 
96 MVAR "V" 
97 MVAR "m' 
98 RCL "Lin" 
99 RCL "v" 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 





1 


cos 

/ 

RCL- “mt 
RTN 

LBL "LOXO"'! 
CLV "La-D" 
CLV “La-A'" 
CLV “Lo-D! 
CLV “Lo-A'! 
CLV “iLi" 
CLV "+-G-1 
CLV "Le" 
CLV nyn 
CLV "Rv!! 
CLV um" 
END 








tiens, ils pat mel 
retape le PERTE 


ASSEMBLEUR 


G. Fillippini 
J. Belin 


FORTH 


X. Bille 


BASIC 


L. Auer 


Fonction mathématiques 
Incrustation Video (Acte IT) 


Structures en Forth 


Impression d'étiquettes 


Le coin des Lhex 


18 
23 


27 


31 


33 


JPC 64 Page 17 


FONCTIONS MATHEMATIQUES 


Ce fichier Lex est une collection de fonctions 
mathématiques trés utiles. 


Beaucoup de ces fonctions peuvent être trouvées dans 
le module MATHROM, donc je recommande les 
possesseurs d’enlever celui ci quand ils utilisent ce 
Lex, car je ne les ai pas testé ensemble. 


Il y a un total de 13 Tokens, et la plupart d’entre eux 
(ceux traitant des nombres complexes) sont déjà 
apparus dans un Lex précédent appelé COMPLEX, 
paru dans JPC 55. Les Tokens ont été changés et le 
code à été amélioré pour corriger quelques bogues. Il 
est donc un peu plus long, mais la façon dont il utilise 
les complexes est toujours la même. 


Il est possible de declarer des variables ou des 
tableaux complexes, et la plupart des fonctions 
utilisant des arguments complexes, comme le 
conjugué et le module, ont été implémentées. 


Les autres fonctions permettent de calculer les sinus 
et cosinus hyperboliques, ainsi que leurs inverses, de 
calculer les racines cubiques (même avec des 
arguments négatifs), de générer la constante € 
(Nombre Népérien = ExP(1)), et de faire des 
conversions binaires <-> décimales. 


Ce Lex n'est pas complet, plusieurs fonctions 
complexes et hyperboliques étant absentes, mais j'ai 
essayé de le documenter, pour que quiconque puisse 
ajouter ses propres fonctions. 


Je suggère aussi de créer un JPC MATHLEX avec 
toutes les fonctions mathématiques déja écrites. En 
effet, il est plus facile d’ajouter de nouvelles fonctions 
à un Lex existant que de recréer complètement un 
autre Lex. 


Ceci permetrait aussi de sauver quelques nibbles, et 
d’avoir un Lex optimisé et beaucoup plus petit que 
JPC ROM. 


Et on pourait essayer de vendre ce Lex par 
EduCALC comme nous le faisons pour la Rom, et 
avoir ainsi quelques revenus suplémentaires pour le 
club. 


Mode d'emploi : 


Un nombre complexe est un couple entre 


parenthèses. 
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Exemples : 

(1,2) Nombre complexe valide 
(2*3+4,4-2) nombre complexe valide 
t:C1529) nombre complexe invalide 
Instructions : 


COMPLEX : Déclaration de variables et tableaux 
complexes. 


COMPLEX A, B(5), C(2,3) 
+-*/: Les fonctions mathématiques marchent en 
complexes. 


A=5+(2,3)/(1,2) > 
A=3*(1,2)-(3,4) -> 


A=(6.6,-.2) 
A=(0,2) 


REPT : Retourne le partie réelle. 
A=REPT(5) ->  A=S 
AZREPT((1,2)) -> Az 

IMPT : Retourne le partie imaginaire. 
A=IMPT(5) ->  A=0 
A=IMPT((1,2)) => A=2 

CON] : Retourne le conjugué. 
A=CONJ(5) ->  A=5 


A=CONJ((1,2)) -> A=(1,-2) 


MAG : Retourne le module. 


A=MAG(5) -> ASS 
A=MAG(-5) ->  A=S 
A=MAG((1,2)) ->  ArSOR(12+22) 


RES : Le dernier résultat peut être complexe, ainsi 
que () en mode CALC. 


A=(1,2)*(3,4) > RES=(-5,10) 


NEP : Nombre Népérien. 


A=NEP -> A=2.71828182846 


CBR : Racine cubique d’un nombre réel. 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Vous pouvez taper vos articles sur 
IBM PC, mais dans ce cas transmettez les nous sur disquette 3/2". Soyez sans 
crainte, nous vous retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

"" centre un titre, par exemple : 
°TITRE 


""(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Roman. Les 
possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY ’fW', CHR$(197); (é) 
DEF KEY ’fE’, CHR$(193); (é) 
DEF KEY ’fR', CHR$(201); (è) 
DEF KEY ’fY’, CHR$(203); (ù) 
DEF KEY ’fU’, CHR$(195); çà) 
DEF KEY ’f1’, CHR$(209); [&b) 
DEF KEY ’f0’, CHR$(194); (ô) 
DEF KEY ‘’f/!, CHR$(92); «0 
DEF KEY ’fA', CHR$(192); (à) 
DEF KEY ’fS', CHR$(200); (à) 
DEF KEY ’fD’, CHR$S(205); (ë) 
DEF KEY ‘fJ', CHR$(207); (ü) 
DEF KEY ‘fK', CHR$(221); «i) 
DEF KEY ‘f*’, CHR$(124); Cl) 


DEF KEY ’fC’, CHR$(181); (ç) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l’accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions... À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 3 juin 1989 


Pierre David (37) 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 
- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 


Vous pouvez aussi bénéficier de la Programmathèque HP-71, regroupant tous les Lex et programmes pour 
HP-71 et HP-75 parus à ce jour dans JPC. Joindre 3 disquettes 3/2" à votre reglement. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 


Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande : 

Qté Prix Unitaire Prix Total 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 FF 
Programmathèque HP-71 (joindre 3 disquettes) x 75 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 x 75 FF 
Actualisation Eprom ‘ x 150 FF 

Total FF 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 


Profession 
Intérêts 











Matériel HP en votre possession 








Autre matériel informatique 








Comment avez-vous connu PPC Paris ? 





Que recherchez-vous au sein de PPC Paris ? 








La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services où organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le Journal de Liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_[_[/1_1_1/191_1] 
Signature, précédée de La mention "Lu et Approuvé!! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement à l’ordre de "PPC Paris! par chèque bancaire ou virement postal (CCP 
No 18 823 40 C à Paris). Ne pas utiliser d’Eurochèques. 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


A=CBR(27) -> A=3 
A=CBR(-27) > A=-3 


SINH : Sinus Hyperbolique. 

A=SINHCX) > A=(EXP(X)-EXP(-X))/2 
COSH : Cosinus Hyperbolique. 

A=COSH(X) -> A=(EXP(X)+EXP(-X))/2 
ASINH : ArcSinus Hyperbolique. 

A=ASINHCX) => A=LN(SOR(X2+1)+X) 
ACOSH : ArcCosinus Hyperbolique. 


A=ACOSH(X) > A=LNCSOR(X2-1)+X) 


BTD : Conversion Binaire->Décimale. Argument 


maximum: 20 bits (FFFFF Hexa). 


A=BTD("110011001") -> A=409 


DTB$ : Conversion Décimale->Binaire. Argument 


maximum: 1048575 (FFFFF Hexa). 
A$=DTB$(12345) -> A$="11000000111001" 


Gigi Filippini (327) 


LEX #MATHLEX' 


AD2-12 EQU #0OC35F 
AD2-15 EQU #0C363 
ADDONE EQU #0C330 
ADHEAD EQU #18187 
AVMEME EQU #2F599 
D1=AVE EQU #18651 
D=AVMS EQU #1A460 
DECDC EQU #05287 
DECP  EQU #0328F 
DMNSN EQU #OAE39 
DPVCTR EQU #0AC50 
DV2-15 EQU #OC4AC 
EXAB1 EQU #0D3E7 
EXP-12 EQU #0CF56 Non Supporté 
EXPR  EQU #OF23C 
FINDA EQU #023E3 
FLTDH EQU #1B223 
FNRTN1 EQU #0F216 
FNRTN& EQU #0F238 
FUNCD1 EQU #2F8C0 
HDFLT EQU #1831B 
1/X15 EQU #0C33E 
IVAERR EQU #0E920 
LN-15 EQU #0CD81 


MEMERR 
MP2-12 
MP2-15 
NXTSTM 
POP1N 
POPIR 
POP1Ss 
POP2N 

PREP 

R<RSTK 
RCCD1 

RCCD2 
RCSCR 
RDATTY 
REVS$ 

RSTK<R 
SPACE 

SPLITA 
SPLTAC 
SaR-15 
STAB1 

STAB2 
STKCHR 
STSCR 
SUBONE 
XYEX 

Yx2-15 
URES 12 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


1D 
MSG 
POLL 


ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 


#0944D 
#0C432 
#OC43A 
#08A48 
#0BD1C 
#O0EB8FD 
#0BD38 
#OBC8C 
#OADAF 
#014DD 
#0D3F5 
#0D41C 
#0E954 
#17CC6 
#1B38E 
#014A8 
#OAD9D 
#OC6BF 
#0C934 
#0C534 
#0D3D9 
#0D400 
#18504 
#0E92C 
#0C327 
#OC697 
#0D27A 
#0C994 


#5E 


acoshe 
#F 
asinhe 
#F 
btde 
#F 
cbre 
#F 
decl 
#0 
conje 
#F 
coshe 
#F 
dtbe 
#F 
impte 
#F 
mage 
#F 
nepe 
#F 
repte 
#F 


pas de messages 
Un poll handler est présent 
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ENTRY sinhe 
CHAR #F 


KEY ?ACOSH’ 
TOKEN 32 

KEY TASINH' 
TOKEN 33 

KEY “BTD' 
TOKEN 34 

KEY 'CBR' 
TOKEN 35 

KEY ! COMPLEX"’ 
TOKEN 27 

KEY !CONJ' 
TOKEN 28 

KEY "COSH' 
TOKEN 36 

KEY 'DTB$" 
TOKEN 37 

KEY "IMPT! 
TOKEN 29 

KEY MAG’ 
TOKEN 30 

KEY !NEP' 
TOKEN 38 

KEY !REPT! 
TOKEN 31 

KEY !SINH' 
TOKEN 39 


ENDTXT 


KHAN 


NIBHEX 811 Un paramètre numér ique 
dtbe GOSUB popir Prends un par. sur La pile 
D1=D1+ 16 Actualise Le pointeur de pile 
GOSBVL FLTDH Convertit le par. en hexa 
GOC mi Si pas d’overflow va en mi 
2XM=0 Si négatif 
GOYES mi va en mi 
GONC  ivaerr sinon génère une erreur 
mi c=0 W 
C=C-1 A C(W) = 00000000000FFFFF 
A=A&C W Masque nibbles non nécessaires 
CD1EX 
R1=C D1 sauvé en R1(A) 
D1=C et récupéré 
mê SB=0 
LCHEX 30 C(B)='0" 
ASRB 
?SB=0 Si bit Le + à droite était 0 
GOYES m3 alors le caractère est ’0' 
C=C+1 B sinon le caractère est ’1! 
m3 GOSUB stkchr et nous empilons ceci 


2A#0 A Si d'autres bits à décoder 
GOYES m2 alors répeter la boucle 
ST=1 0 Ajouter le string header 


GOSBVL ADHEAD aux caractères sur La pile 
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GOSBVL REVS$ 
GOTO 


Maintenant inverse la chaine 


expr On retourne au Basic 


ivaerr GOVLNG IVAERR “Err: Invalid argument! 


RAR RRRRRRRRRRRMMAR RAA 


NIBHEX 411 Fct. avec un paramètre num. 
btde  GOSBVL POP1S Prend une chaine sur La pile 
C=0 A AÇA) == longueur chaine en nib 
LCHEX 28 CCA) := 00028(hex) = 40(dec) 
ACEX A 
?A<C A Si longueur > 40 nib (20 car) 
GOYES ivaerr alors chaine pas valide 
CSRB C(B) := longueur chaine en oct. 
C=C-1 B C(B) := longueur chaine -1 
CSRC C(15-14) := long. chaine -1 
CSRC C(S) est compteur2 
LCHEX 30 C(B) := 0’ 
D=C B D(B) := ‘0’ 
P=C 14 P est compteur1 
A=0 A ACA) prend Le résultat 
B=0 A BA) est La valeur du bit 
B=B+1 À qui est 1 pour Le er bit 
mé C=DAT1 B Lit un caractere dans M. Stack 
D1=D1+ 2 et incremente Le pointeur 
C=C-D 8 C(B) := caractère - ’0’ 
GOC ivaerr carry := 1 si caract. < 0’ 
C=C-1 B C(B) := caract-’0!-1 
GOC m5 Carry := 1 si caract. = ‘0’ 
A=A+B A On réactualise le résultat 
C=C-1 B mais on teste si caract#'1! 
GONC  ivaerr Dans ce cas, sortie avec erreur 
m5 B=B+B A Double La valeur binaire 
P=P-1 Decrémente compteur1 
GONC m4 et repète 
C=C-1 S Decrémente compteur2 
GONC mé et repète 
GOSBVL HDFLT On convertit de Hex en decimal 
C=A W On met le résultat en C(W) 


fnrtn1 GOVLNG FNRTN1 On retourne au Basic 


RORORORORON ee ee AO RORRORON 


NIBHEX 00 Fonction sans arguments 
nepe  C=0 W 

P= 3 

LCHEX 271828182846 On place La constante 

GONC fnrtni B.E.T. au Basic 


ROM ee he he eee he ee ee 


NIBHEX 811 Fct. avec 1 param. num. 

sinhe GOSUB m8 AB := EXP(-X); CD := EXP(X) , 
A=-A-1 S AB := -EXP(-X) 
GONC mé B.E.T. dans Le code de cosh 


BORA RONO RON RU RM RO R AR RRRR 


NIBHEX 811 Fct. avec 1 param. num. 
coshe GOSUB m8 AB := EXP(-X); CD := EXP(X) 
mé GOSUB ad2-15 AB := EXP(X) +- EXP(-X) 


rccde 


P= 14 


C=0 W 

D=0 W CD := 0 

D=D+1 P CD := 1 

D=D+1 P CD := 2 

GOSUB dv2-15 AB := (EXP(X) +- EXP(-X))/2 

GOTO m7 Convertit en 12-Form et 
retourne au Basic 

GOSUB popir Prend un reel sur la pile 

GOSBVL EXP-12 AB := EXP(X) 

GOSBVL STAB2 Scr2 := EXP(X) 


GOSBVL 1/X15 AB := 1/EXP(X) == EXP(-X) 
GOVLNG RCCD2 CD := EXP(X) et retour 


RRRRRROR RER RAR RAR RAR 


asinhe 


NIBHEX 811 Fct. avec 1 param. num. 
GOSUB m10 AB := X”2 

GOSBVL ADDONE AB := X"2 +1 

GONC m9 B.E.T. dans Le code de acosh 


ee he he he ee ee ee ee 


acoshe 


m 


m10 


NIBHEX 811 Fct. avec 1 param. num. 
GOSUB m10 AB := X°2 
GOSBVL SUBONE AB := X”2 +1 
GOSBVL SQR-15 AB := SQR(X"2 +- 1) 
GOSUB rccd2 CD := X 
GOSUB ad2-15 AB := SQR(X"2 +- 1) + X 
GOSBVL LN-15 AB := LN(SOR(X"2 +- 1) +X ) 
GOTO m7 Convertit en 12-Form 

et retourne au Basic 
GOSUB popir A:=X 
C=A W C := X 
GOSBVL SPLTAC convertit À et C en 15-Form 
GOSBVL STAB2 Scre := X 


GOVLNG MP2-15 AB := X*X et retourne 


MRRRRRRR ARR RRRRRRRRRRAR 


cbre 


NIBHEX 811 Fct. avec 1 param. num. 
GOSUB popir A:=X 

R4&=A Sauve Le signe en R4(S) 
A=0 S À := ABS(X) 


GOSBVL SPLITA Convertit en 15-Form 
LCHEX 0333333333333333 


D=C w 

c=0 A CD := 1/3 en 15-Form 

C=C-1 A 

GOSBVL YX2-15 AB := X"(1/3) 

C=R4 Prend l’ancien signe en C(S) 
A=C s et Le replace 

GOTO m7 Convertit en 12-Form et 


retourne au Basic 


RARARARRARRARARRRRRRRRRÉ 


p 


LCHEX 38 
?B=C B 


CB := pCMPLX 
si poll number = pCMPLX 


GOYES 

RTNSXM 
mi GOSBVL 
P= 
GOSBVL 
D0=(5) 
A=DATO 
GOSBVL 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
P= 
GOSBVL 
RTNSXM 


m11 


D1=AVE 
5 
R<RSTK 
FUNCD 1 
B 
FINDA 
#7A 
num 
#67 
rcl 
#84 
div 
#83 
mul 
#87 
add 
#82 
sub 
#69 
rsto 
#68 
csto 
#7F 
res 

00 

5 
RSTK<R 


alors on Le prend 
sinon on retourne avec XM=1 


D1 := pointeur Math stack 
On sauve Les niveaux de La 
pile de retour 
DO * sur Le Token 
A(B) := Token 
Si Le Token est: 
Nombre Complexe: 
GOTO num 
Recal l: 
GOTO rcl 
Division: 
GOTO div 
Multiplication: 
GOTO mul 
Addition: 
GOTO add 
Soustraction: 
GOTO sub 
Stockage reel -> comp var 
GOTO rsto 
Stockage comp -> comp var 
GOTO csto 
RES ou () en mode CALC 
GOTO res 
Sinon: 
récupere La pile de retours 
Et retourne 
avec XM=1 (Poll pas pris) 


ARR Re 


C=R1 
GOSUB 
C=RO 
GONC 


res 


push 


m13 


C(W) := partie réelle 

On La place sur La M. Stack 
C(W) := partie imaginaire 
B.E.T. 


RRRRRRRRRR RER RAR RR RO RRORRRRR 


add SETDEC 
A=R1 
C=R3 
GOSBVL 
GOSUB 
DATI=C 
A=RO 
C=R2 
GOSBVL 
GOSUB 
GOSUB 
P= 
LCHEX 
GOSUB 
SETHEX 
P= 
GOSBVL 
XM=0 
B=0 


m12 
m13 


mi4 


AD2-12 
ures12 
4 


AD2-12 
ures12 


push 

0 

0E 
stkchr 


5 
RSTK<R 


S 


Demandé par SPLITA ds AD2-12 
On place les parties réelles 
en ACW) et C(W) 
et on les ajoute 
Conversion en 12-Form 
Et on le place sur la M. St. 
Place les parties imaginaires 
en ACW) et C(W) 
et on les ajoute 
Conversion en 12-Form 
et on Le place sur La M. St. 
Ajoute un entête au nombre 
pour indiquer au système 
que c'est un nombre complexe 
Récupere 
le pile de retours 
que nous avons sauvé 
Efface Le bit XM (Poll pris) 
Demandé par rcl: 


JPC 64 Page 21 








B=B-1 S 


B=B-1 S 
A=R1 
B=A A 
RTN 


B(S) := Type de variable=E 


B(A) := R1(A) = addresse var. 


Poll est pris et on retourne 


RON AN ee ee ee ee 


sub 


SETDEC 
C=R1 
C=-c-15S 
DATI=C W 
C=RO 
C=-C-1 S 
GONC  m13 


C(W) := Partie réelle 
C(W) := -Partie réelle 
On replace sur La pile 


C(W) := partie imaginaire 
C(W) := -partie imaginaire 
B.E.T. 


He he he he ee ee RE 


mi5 


rcscr 


HO eh he he ee ee he he ee he 


mul 


He he eh he he he he ee he ee ee ee he 


div 


SETDEC 
A=RO 
C=R3 
GOSUB 
GOSUB 
A=R1 
C=R2 
GOSUB 
GOSUB 
A=R1 
C=R3 
GOSUB 
GOSUB 
A=RO 
C=R2 
GOSUB mp2 12 
GOVLNG RCSCR 


mp2-12 
stscr 


mp2-12 
stscr 


mp2- 12 
stscr 


GOSUB m15 
A=-A-15S 
GOSUB ad2-15 
GOSUB ures12 
DATI=C W 
GOSUB rcscr 
GOSBVL XYEX 
GOSUB rcscr 
GOSUB ad2-15 
GOTO mi2 


GOSUB m15 
GOSUB ad2-15 
GOSBVL STAB1 
A=R3 


C=A 
GOSUB  mp2-12 
C=B 
AR2EX 

R3=C 

C=A VW 


GOSUB  mp2-12 
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Routine utile pour mul et div 
ACW) := Im 

C(W) := Re2 

AB := Imi*Re2 

On sauve dans M. Scratch St. 
A(W) := Rel 

C(W) := Im2 

AB := Rel*Im2 

On sauve dans M. Scratch St. 
A(W) := Rel 

C(W) := Re2 

AB := Reî*Re2 

On sauve dans M. Scratch St. 
ACW) := Imi 

C(W) := Im2 

AB := Imi*Im2 

CD := Rei*Re2 et retour 


AB := -Imi*Im2 
AB := Rei*Re2 - Iml*Im2 
Convertit en 12-Form 
et place résultat sur La pile 
CD := Rel*Im2 
AB := Rel*Im2 
CD := Imi*Re2 
AB := Rel*Im2 + Imi*Re2 
..Et sortie 


AB := Rei*Re2 + Iml*Im2 
Scri := AB 

A(M) := Re2 

C(W) := Re 

AB := Re2*Re2 


A(W) := Im2 
Scr2 := Re2*Re2 
C(W) := Im2 

AB := Im2*Ime 


push 


GOSUB rccd2 
GOSUB ad2-15 
GOSBVL EXAB1 
GOSUB rccdi 
GOSUB dv2-15 
GOSUB ures12 
DATI=C W 
GOSUB rcscr 
C=-C-1 S 
GOSBVL XYEX 
GOSUB 
GOSUB 
GOSUB rccdi 
GOSUB dv2-15 
GOTO m12 


rescr 
ad2-15 


A=C W 
GOSBVL D=AVMS 
D1=D1- 16 
CD1EX 

D1=C 

?D>=C A 
GOYES memerr 
DATI=A W 
RTNCC 


memerr GOVLNG MEMERR 


CD := Re2*Re2 

AB := Re2*Re2 + Im2*Im2 
AB := Re1*Re2 + Imi*Im2 
CD := Re2*Re2 + Im2*Im2 
AB:=(R1*R2+11*12)/(R2"2+12"2) 
Convertit en 12-Form 

Et place résultat sur La pile 
CD := Re1*Im2 
CD := -Rel*Im2 
AB := -Rel*Re2 

CD := Imi*Re2 
AB := Imi*Re2 - Rel*Im2 

CD := Re2*Re2 + Im2*Im2 
AB:=(I1*R2-R1*12)/(R2"2+12"2) 
..et sortie 


A(W):=Nombre à empiler 

D(A) := début mémoire dispo. 

Faire place pour 1 nombre 

CCA) := D1 

et réinscription D1 

Si il n'y a pas de place 
alors erreur 
sinon empile Le nombre 
et retour 


MErr: Insufficient Memory! 


He he ee he de ee ee Re 


decl 


ml6 


m17 


mi8 
m19 


REL(5) m18 
REL(5) m19 
LCHEX E 
D1=(5) #2F890 
DATI=C P 
GOSBVL PREP 
GOSBVL DPVCTR 
R1=C 

?2A#0 A 
GOYES m7 
A=A+1 A 

ST=1 0 
GOSBVL SPACE 
GOSBVL DMNSN 
GOC mlé 
GOVLNG NXTSTM 


GOVLNG DECDC 
GOVLNG DECP 


Ecrit Le type de var. = E 
en S-R1-3 


Prépare la création d’une var. 
Prend Le Dope Vector 
R1 := Dope Vector 
Si La variable est un tableau 
alors on va plus bas 
sinon on fait croire 
que c'en est un 
Calcule l'espace demandé 
et alloue La mémoire 
Répéte si il y a d’autres var. 
Retourne au Basic 


RHONE Re RO RAR 


rcl 


A=R1 

DO=A 
C=DATO W 
D0=D0+ 16 
GOSUB push 
C=DATO W 
GOTO m13 


ACA) 
DO := ” partie réelle 

C(W) := Partie réelle 

DO := * Partie imaginaire 
empile partie réelle sur pile 
C(W) := Partie Imaginaire 
BE T: 


:= addresse variable 


RRRRRRRRR RM RÉRÉRRRÉÉ 


csto 


m20 


GOSUB m21 
D1=D1+ 2 
C=DAT1 W 
D1=D1+ 16 
DATO=C W 
D0=D0- 16 
C=DATI W 
DATO=C W 
C=D A 
D1=C 


GOTO mi4 


Vérifie si La var. est valide 
Passe l’entête 0E 

C(W) := partie imaginaire 

D1 := * partie imm. sur M. St. 
Ecrit partie imm. dans La var. 
DO := * partie réelle ds var. 
C(W) := partie réelle 

Ecrit part. réelle dans var. 
récupère D1 

à son ancienne valeur 

Et sortie 


HONOR RHONE NE ROM RAR MR RE 


rsto 


m21 


GOSUB m21 
c=0 W 
GoC me0 


CD1EX 

D=C A 
D1=C 
DO=(5) #2F880 
C=DATO S 
DO=D0- 15 
C=DATO A 
DO=C 
DO=D0+ 16 
C=C+1 S 
C=C+1 S 
RTNC 


rdatty GOVLNG RDATTY 


Verifie si La var est valide 
Partie imaginaire := 0 
B:EST. 


Sauve D1 

dans D(A) 

Et Récupere sa valeur 

DO := type de variable 

C(S) := type de variable 
DO := * addresse variable 
C(A) := addresse variable 
DO := * variable 
DO := * partie im. de La var. 
Verifie Le type de La var. 

Si type = E (Complexe) 

Alors retourne avec carry=1 

Sinon "Err: Data type! 


ONMEDA 


repte 
expr 


NIBHEX 811 
GOSUB  popin 
GOVLNG EXPR 


Fct. avec 1 param. num. 
Dépile La partie imaginaire 
Et retourne 


ON ARR RO RORAON 


conje 


NIBHEX 811 
GOSUB popin 
GONC  expr 
C=RO 

C=-c-15S 
GOSUB push 
LCHEX 0E 
GOSUB stkchr 
GONC  expr 


fct. avec 1 param. num. 
Dépile La partie imaginaire 
Si nombre réel, c'est tout. 
C(W) := Partie imaginaire 
C(W) := -Partie imaginaire 
Place sur La pile 
Ajoute l’entête 

indiquant un nb. complexe 
Et retourne 


C=RO 
GOC 


fnrtné 


sinon retourne partie im. 
B.E.T. 


KRRRRRERERRRRRRRRÉRRRRRÉ 


NIBHEX 811 Fct. avec 1 param. num. 
mage  GOSUB popin Dépile un nombre 

A=0 s Re := ABS( Re ) 

C=A W C(W) := A(W) := Re 

GONC  fnrtné Si Le nombre est reel, retour 

SETDEC 

GOSUB mp2-12 AB := Re*Re 

GOSBVL EXAB1 ACW) := Im ; Scri := Re*Re 

C=A W CCW) := Im 

GOSUB mp2-12 AB := Im*im 

GOSUB rccdi CD := Re*Re 

GOSUB ad2-15 AB := Re*Re + Im*Im 

GOSBVL SQR-15 AB := SQR(Re*Re + Im*Im) 
m7 GOSUB ures12 convertit en 12-Form 


fnrtné4 GOVLNG 


FNRTN4 


Et sortie 


KRNRRRRRRRRRRRRRRÉRRÉHUR 


popin GOVLNG 
ures12 GOVLNG 
ad2-15 GOVLNG 
mp2-12 GOVLNG 
stscr GOVLNG 
rccd1 GOVLNG 
stkchr GOVLNG 
dv2-15 GOVLNG 
popir  GOVLNG 


END 


POPIN 
URES12 
AD2-15 
MP2-12 
STSCR 
RCCD1 
STKCHR 
DV2-15 
POPIR 





INCRUSTATION VIDEO 
(ACTE Il) 


Anatomie d’un poisson... d’avril! 


RON N RER RO RRORROR 


GOSBVL POP2N 
GoC rdatty 
GOTO m13 


num Dépile partie réelle et comp 
Si 1 seul est comp.: Erreur 


Sinon Sortie. 


RORRONORO NOR ROMA RAR 


NIBHEX 811 Fct. avec 1 param. num. 
impte GOSUB popin Depile un nombre 

c=0 w Si c'est un reel 

GONC  fnrtn4 alors retourne 0 


Tout d’abord, j'espère que la pêche a été bonne, et 
que tous ceux qui sont tombés dans mes filets ne m’en 
garderont pas rancune! 


Si le listing présenté dans le coin des Lex était 
odieusement truqué, le Listing source était bien celui 
de la fonction présentée. 


Mais si je vous en présente une nouvelle (sans 


piège!), c’est que l’autre n’était qu’un appat improvisé 
au dernier momment. ; 
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Je m'explique. Ayant pensé que la plupart d’entre 
vous attendraient, en ouvrant le numéro d’Avril, une 
information fausse ou une interface bidon, j'ai vite 
décidé de faire un programme truqué. Seulement, en 
Basic, le piège aurait été trop difficile à masquer. Il 
fallait donc faire un Lex. En effet, j'était sûr que 
personne n’aurait l’idée de décoder le coin des Lex 
avant de le taper ! 


Aprés quelques essais (dont je ne vous dirais rien, ça 
peut encore servir dans quelques années!), je créais 
donc le Lex fatidique. Seulement, un problème se 
posait, je n’avais encore aucune idée sur la fonction 
devant servir d’alibi ! 


La partie finale du Lex me parraissant avoir quand 
même un interêt, je créait donc la fonction GINS, en 
me basant en grande partie sur les routines crées 
pour l’autre Lex. Mais, par faute de temps, je ne pus 
l'améliorer. Maintenant c’est fait. 


Mais avant de vous présenter la nouvelle version, je 
voudrais vous faire part d’une petite découverte que 
j'ai fait pendant les essais : 


- Mettez l’horloge du HP-71 à l'heure. 


- Executez DISP " " à POKE "2E3FF",15" 

admirez l'affichage! Une courte pression sur [f] ou 
tg] le fait changer, on retrouve le contrôle en 
appuyant sur les autres touches. 


- Et maintenant regardez l'heure ! 


A cette adresse se trouve un Nibble de contrôle de 
l'affichage. sa structure est la suivante : 


LSB 0 -- Affichage actif. 
1 -- Affichage clignotant 
2 -- Test de l’afficheur 
MSB 3 -- Validation Timer 1 


En stockant la valeur "5" ("0101" en binaire), on 
exécute donc un test de l'affichage. 


En ce qui concerne la déviation de l’heure, (qui peut 
varier de quelques minutes à plus d’une heure, avec 
correction de la date si nécessaire), je n’ai pas encore 
trouvé lexplication. Le bit 3 à sûrement une action, 
mais d’une part je ne l’arme pas, d’autre part, selon 
les IDS, le Timer 1 ne sert qu’au contrôle de 
l'affichage, et n’a aucun contact direct avec le circuit 
horloge, interfacé en "2E2F8". Je ne sait pas non plus 
si c’est une simple réactualisation de la valeur stockée 
en mémoire ou si cest une accelération de 
l'oscillateur. 
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Dans ce cas il serait peut être interessant de faire un 
parallèle avec l’adresse mémoire qui fait accelérer la 
HP-28... 


Le nouveau Lex 


La syntaxe est la même que dans le précedent 
numéro : 


GINS chaïînel [,position [,chaine2]] 


Si le source présenté dans le précédent numéro 
permettait bien d’incruster un motif dans l'ecran, il le 
faisait à l’aide d’un buffer, dont on transférait le 
contenu à affichage à laide d’une routine 
directement copiée sur Gbisp dans les IDS. Cette 
méthode, obligatoire pour le Lex ‘truqué", me 
permettait aussi d'oublier le problème de 
segmentation de l’afficheur. Malheureusement, le Lex 
passant la majeure partie de son temps à transférer 
des zones de données vers le buffer, puis vers 
l'affichage, le temps d’execution était très important. 
En outre la routine gdisp utilisait des points d’entrées 
non supportés. 


J'ai donc reconçu le Lex en supprimant le buffer et en 
créant une autre fonction gdisp chargée de stocker ou 
d’incruster les chaines directement dans l’afficheur. 


Le temps d'exécution moyen pour l’ancienne version 
était de l’ordre de 90 ms, avec la nouvelle version on 
obtient moins de 30 ms, soit un gain de 3. Et dans 
certains cas, le gain peut passer à 6 ! 


Un autre gain est celui de la taille du Lex, on passe de 
377 octets à 305 ! 


Maintenant, il est possible de faire de l’animation et 
des effets spéciaux à 24 images/secondes sur votre 
HP-71! Et en Super-Scope! 


Le mois prochain je vous montrerai comment 
installer la Dolby Stéréo sur votre HP-71, si je n’ai 
pas été engagé par Georges Lucas pour tourner le 
prochain STAR WARS ! 


Jacques Belin (123) 
LEX  ‘GINSLEX' 


ID #E1 
token EQU 123 


MSG 0 
POLL 0 
ENTRY GINSe 
CHAR  #D 


A=A+A À 


R2=A 
D1=D1+ 
GOSBVL 
R1=A 
CD1EX 


16 
POP1S 


A=A+C A 


RO=A 
GOTO 


disp 


| Hexa apres l'avoir 
| multiplié par 2 
| on passe Le paramètre 
| On dépile A$ 
On stocke sa longueur 


| on sauve Le pointeur.. 
et on va plus bas ! 


* on peut être dans deux cas différents : 
* soit GINS A$ soit GINS A$,N,B$ 
cas13 GOSBVL POP1S 


R1=A 
CD1EX 
A=A+C 
RO=A 


D1=(5) FORSTK 


C=DAT1 
?A=C 
GOYES 


A 


A 
A 
disp 


On dépile La chaine 
On stocke sa longueur 
| on stocke Le pointeur 


| ce paramètre touche t-il 
| Le fond de La math-stack ? 


oui, on est dans le cas A$ 


* sinon, on est dans Le cas GINS A$,N,B$ 


KEY BINS"' 
TOKEN token 

tCOMMA EQU #F1 

BitsOK EQU L 

DD1ST EQU #2E300 

DDTEND EQU #2E34C 

DD2ST EQU #2E200 

DD2END EQU #2E260 

DD3ST EQU #2E 104 

DD3END EQU #2E160 

DSPSTA EQU #2F475 

EXPEX- EQU #0F178 

FIXDC EQU #05493 

FLTDH EQU #1B223 

FORSTK EQU #2F59E 

NEEDSC EQU #2F94A 

NUMCK EQU #0369D 

NXTSTM EQU #08A48 

POPIN EQU #0BD1C 

POP1S EQU #0BD38 

RESPTR EQU #03172 

STRGCK EQU #036BA 

STRNGP EQU #03790 ca 
ENDTXT 

*Syntaxe : GINS A$ [,N [,B$]] 

GINSp GOSBVL STRGCK Une chaine obligatoire 
LC(2) tCOMMA | 
2A#C B | 
GOYES resptr | Un nombre optionnel 
GOSBVL NUMCK | 
LC(2) tCOMMA | 
?2A=C B | Une autre chaine 
GOYES strngp | optionnelle sz 

resptr GOVLNG RESPTR | 

strngp GOVLNG STRNGP 

GINSd GOVLNG FIXDC 


* Registres utilisés : 


* 


* 


REL(5) 
REL(5) 
GINSe P= 
GOSBVL 
C=0 
R2=C 
LCHEX 
2A=C 


GINSd 
GINSp 
0 
EXPEX- 
A 


OF 
B 


GOYES cas13 


* sinon, on est dans 


GOSBVL POP1N 
A=0 S 
GOSBVL FLTDH 


RO: pointeur Math Stack 
R1: Longueur chaine Alpha 
R2: N=position chaine A$ 


Analyse des parametres 
| Initialisation de N à 0 


s3 A=R1 
B=A 
C=RO 
D1=C 
A=0 
LCHEX 
GOSUB 
A=R1 
LCHEX 
C=C-A 
B=C 
LCHEX 
GOSUB 
A=RO 
D1=A 
GOSBVL 
A=0 
GOSBVL 
A=A+A 
R2=A 
D1=D1+ 
GOSBVL 
R1=A 
CD1EX 
A=A+C 
RO=A 


A 
0 
gdisp 


00108 
A 
A 
1 
gdisp 


POPIN 
S 
FLTDH 
A 


16 
POP1S 


A 


| on stocke La longueur 
| de B$ dans B(A) 
| 
| D1 * sur B$ ds La Math St. 
colonne de départ = 0 
code pour gdisp = 0 
Affichage de B$ 
| ACA) = colonne du 1er blanc 
| BCA) = nbre de blancs 
| après B$ 
Code pour gdisp = 1 
Effacement de l’aff. après B$ 
| on récupere Le pointeur 
| de La math stack 


on dépile N et on Le stocke 
sous forme Hexa 


| on dépile A$ et on stocke 
| La Longueur 


on stocke le pointeur 


| * tous Les cas aboutissent ici, on a donc 


| Le dernier parametre 


| est il une chaine ? x 
oui, on va au cas13 
le cas < GINS A$,N > ” 
| * 
| on dépile N LS 
| et on Le stocke sous forme di 


* à l'affichage : 


Sp  A=RO 


soit l'affichage courant 


soit la chaine B$ 


* dans Les registres : 


RO: l'’addr. de La chaine A$ 
dans La math stack 
R1: 


R2: 


la longueur de A$ 
la valeur de N en nibbles 
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D1=A | D1 * sur La math stack 


C=R1 | 

B=C A | BCA) = Longueur de A$ 
A=R2 ACA) = N 

LCHEX 2 code pour gdisp 

GOSUB gdisp Incrustation de A$ dans l’aff. 
GOSUB Relsta | 

ST=1  BitsOK | 

GOSUB Stosta | Validation de l'affichage 
DO=(4) NEEDSC | 

LCHEX E | 

DATO=C 1 | 


GOVLNG NXTSTM . on s’en va! 
* routine de contrôle de l'affichage 
* registres: A(A) = colonne de départ 
* B(A) = nombre de nibbles à envoyer 
C(0) = code de fonction: 
0: copie simple 
1: remplissage avec des 10" 
2: incrustation 
D1 = adresse de La chaine à envoyer 
En fait, Le nibble juste après 
cette chaine (adresse haute) 
* Non significatif si code 1 


 Ù * # #* *# * 


gdisp ST=C | copie de C dans STATUS 
D1=D1- 2 D1 * sur 1er car. de La chaine 
BSRB B(A) = nb d’octets à envoyer 
P= 4 | 
LCHEX O0 | effacement de B(4) 
P= 0 | (sinon bug à cause du décalage) 
LCHEX 00108 | 
?C<=A A | Longueur chaîne > 132 car ? 
RTNYES oui, retour 
LCHEX O000BC | 
?C<=A A | Longueur : 94 > L > 132? 
GOYES dispdi oui, on est dans zone de droite 
LCHEX 0005C | 
?2C<=A A | Longueur : 46 > L > 9% ? 
GOYES dispd2 oui, on est dans zone centrale 
LC(5) DD3ST | 
A=A+C A [D0 = ad. de départ de La ch. 
DO=A | 
LC(5) DD3END | 
GOSUB dispdd | affichage dans zone gauche 
DO=(5) DD2ST | si chaine dépasse de la zone, 
GOTO sd2 | on continue dans La suivante 
dispd2 LC(5) DD2ST | 
A=A+C A | 
LCHEX 0005C | D0= ad. de depart de La ch. 
A=A-C À | 
DO=A | 
sd?  LC(5) DD2END | 
GOSUB dispdd | Affichage de La zone centrale 


DO=(5) DD1STa 
GOTO sdi 
LC(5) DDIST | 
A=A+C A | 


| si chaîne dépasse de La zone, 
| on passe à La suivante 


dispdi 
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LCHEX 000BC | 
A=A-C A | 
DO=A | 
LC(5) 
GOSUB 
RTN 


DO = ad. de départ de La ch. 


sdi DDIEND | 


dispdd | Affichage de La zone droite 


* routine d'affichage proprement dite 
* registres : ST(0): si =1 -> rempl. avec des "O0 


* ST(1): si =1 -> incrustation 

" B(A) = nombre d'octets à envoyer 

F C(A) = adresse de fin de la zone 

DO = adresse colonne de départ 

$ D1 = adresse chaine source 

* Deux modes de sortie: 

* si on arrive à La fin de La zone. 

* ou si on arrive à La fin de La chaine 
. (dans ce cas on remonte sans repasser 
* 


par gdisp) 
on sauvegarde C(A) dans D 
| Si on a incrusté Le dernier 


dispdd D=C A 
loopdd B=B-1 X 


GOC findd | caract. on sort par findd 
?ST=0 0 | 
GOYES sdd | si code = 1 on ecrit des "0" 
A=0  B | 
GoTO sdd2 | 

sdd  A=DAT1 2 | on Lit un caractere 
2ST=0 1 | si code = 2 
GOYES sdd2 | on Lit l'affichage 
C=DATO 2 | ét on effectue un "OU" 
A=AIC B | avec La chaine 

sdd2  DATO=A 2 | on affiche Le résultat 
DO=D0+ 2 | 
D1=D1- 2 | on déplace Les pointeurs 
CDOEX | 
DO=C | Arrive t-on en fin de zone ? 
2C>=D A | 
RTNYES | oui, retour (vers gdisp) 
GOTO Loopdd | sinon on boucle. 

findd C=RSTK | Le dernier caract. est affiché 
RTN | on retourne sans passer par 


gdisp 


* Routines non supportées. 
* je Les ai recopiées en Les simplifiant. 
* RCLSTA EQU  #01BA0 
* STOSTA EQU  #01BAB 
Relsta DO=(5) (DSPSTA)+3 

C=DATO X 

CSTEX 

P= 0 

RTNCC 
Stosta C=ST 

DATO=C X 

RTNCC 


END 


LA MOULINETTE A ARTICLES. 


Approche du problème. 


Contrairement à ce qu’on pourrait penser du titre, 
nous n’allons pas parler de PAO, entendez 
Publication Assistée par Ordinateur mais plutôt de 
structure de données. 


La majorité des livres annoncent record pour parler 
de la notion d’article. Ce type de donnée consiste en 
un ensemble d'informations (des entiers, des réels, 
des chaines, etc) regroupé à l’aide d’un nom de 
record. On accorde aussi le nom de structure à ce 
genre de donnée comme en atteste les quelques 
lingnes de Langage C qui suivent : 


struct Abonne € 
char nom[30]; 
char prenom[30]; 
int tel; }; 


struct Abonne Moi; 


Autrement dit, je suis un abonné du téléphone, ce 
vous ne doutiez pas ! 


Analyse de la notion d'article. 


Nous allons dans ce paragraphe utiliser l'exemple 
donné en Langage C. Bien entendu ce n’est pas la 
syntaxe qui interesse mais le principe actif 
alchimiquement parlant. 


La structure Abonne comporte trois champs, deux 
chaines et un entier. Toutes les instances réalisées à 
partir de la structure (exemple Moi) comporteront un 
nombre suffisant d’octets afin que l’on puisse y ranger 
un nom, un prénom et un numéro de téléphone. 


Donc en quelque sorte, la structure fait office de 
masque en calculant automatiquement l’adresse du 
début de chaque champ. Ce qui donne par exemple la 
ligne de code suivante : 


Moi.tel = 3615; 


Elle signifie ’ranger 3615 dans l'instance Moi de la 
structure Abonne à l'adresse du champ tel. L'objectif 
de cet article est de recréér en FORTH la notion de 
structure ou d'article. Nous venons de voir que tout se 
résumait en un calcul de l’adresse de chaque champ. 


C’est facile, c’est pas cher, mais pas vraiment 
performant 


La première idée qui vient à l'esprit (et c’est celle-là 
même qui servit pour la Recette Des Spaghetti) se 
décrit en ces quelques lignes de code. 


30 30 + 5+ CONSTANT ABONNE 

: .NOM ( ad -- ad.nom ) ; 

: .PRENOM ( ad -- ad.prenom ) 
30 2* + : 

: .TEL ( ad -- ad.tel ) 
One er à 

CREATE MOI 

ABONNE NALLOT 


Ainsi on peut écrire 3615 MOI .TEL ! 


En regard de la simplicité, cette programmation a de 
multiples défauts. Le plus important est le temps 
d'éxécution, le nombre d’additions est prohibitif. Le 
suivant est lié à l'ergonomie, ce programme n’est pas 
facile à lire lorsque noyé dans la masse. Enfin, nous 
n’avons pas explicitement la belle notion de structure 
comme en Langage C. 

appels sur la programmation en FORTH. 


Rappels sur la programmation en FORTH. 


Les notions ci-après sont bien souvent reléguées par 
nous tous au fond d’un tiroir faute d'exemple ou 
d'applications concrètes. Aussi je vous propose de 
leur faire prendre l’air en vous montrant un exemple 
(les articles). je suis certain que vous découvrirez par 
vous-même d’autres applications possibles. 


La première notion est liée à IMMEDIATE. Ce mot à la 
propriété de modifier la dernière entrée du 
dictionnaire et uniquement celle-là. Sa fonction: 
forcer le bit immédiat dans le NFA. Ainsi, le mot 
demeurera éxécutable indépendamment du contexte. 
A titre illustratif, compiler ce qui suit: 


SKI 

DEPTH 

IF .S ELSE 255 EMIT THEN 
KEY DROP ; IMMÉDIATE 


A présent, essayer ceci: 


: FO0 
BEGIN 

KI 
UNTIL KI ; 


Vous allez voir apparaitre (ô miracle) le contenu de 
la pile de données lors de la compilation. Aujourd’hui 
je ne rentrerai pas dans le détail mais il est visible que 
le code de ki peut modifier à son gré l’action du 
compilateur. Un de ces jours, on explorera ensemble 


JPC 64 Page 27 








les méandres du compilateur et nous lui ferons 
prendre des vessies pour des lanternes. C’est promis ! 


La deuxième notion fonctionne la plupart du temps 
en tandem avec la précédente. Il s’agit de COMPILE et 
[COMPILE]. La différence entre les deux vient de ce que 
le second agit sur des mots immédiats en forçant leur 
compilation dans la définition. Le FORTH, c’est fort, 
y'a pas à dire ! 


Un pas à franchir. 


Le programme listé ci-après doit paraitre un peu 
touffu. J’admets que c’est un peu bizarre au début: 
STRUCT permet de construire des mots capables d’en 
générer d’autres. En terme de programmation 
orienté objets, STRUCT est une méfa-classe qui 
engendre des classes d'objets munis d’attributs 
spécifiques. On instancie les classes en objets ou 
instances, des variables qui contiennent effectivement 
des data. Le L.0.0. (langage orienté objet) est à nos 
pieds ! 


Illustration le propos d’un exemple. Je pense qu’une 
série d'exemple est meilleur qu’un long discours. 
Avec mon bazar, la structure en C devient: 


30 SFIELD NOM 

30 SFIELD PRENOM 
5 FIELD TEL 
STRUCT ABONNE 
ABONNE MOI 
ABONNE TOI 

MOI SINIT NOM 
MOI SINIT PRENOM 
TOI SINIT NOM 
TOI SINIT PRENOM 


La classe d’objet ABONNE s’instancie en MOI et Toi dont 
les attributs sont NOM, PRENOM et TEL. SFIELD désigne un 
champ alphanumérique, FIELD un numérique, SINIT 
permet d’initialiser le champ alpha. et cela de 
manière à demeurer compatible avec les mots de 
manipulation sur les chaines. En se penchant 
profodemment, on remarque que l’adresse de chaque 
champ est calculée avant d’être compilée dans la 
définition, d’où gain de temps à l’éxécution. 


Vous vous demandez sans doute comment on 
manipule ces engins. Par éxemple: 


" BILLE"“ MOI NOM S! 
" XAVIER" MOI PRENOM Sl! 
12345 MOI TEL ! 


On peut utiliser les instances dans une compilation ou 


en interactif, au clavier. On peur copier une instance 
dans une autre: 
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MOI TOI STCOPY 


Car l'instance contient en elle-même sa taille en 
nibbles. sTcopY utilise la taille de l'instance réceptrice 
(TOI en l’occurence). A titre illustratif, il est joint un 
programme qui montre comment utiliser l’ensemble. 


Critique de la proposition. 


C’est vrai que le langage orienté objets ne possede 
qu’un type de méta-classe, STRUCT, ce qui fait que nous 
avonsun nombre limité de méthodes (on appelle ainsi 
les procédés qui permettent de manipuler les objets). 
C’est un bon début quand même. La relation qui lie 
classes et instances est le calcul d'adresses. Le fait que 
l’on compile ces adresses n’entre pas directement en 
ligne de compte. 


D'autre part comme nous n'avons qu’une seule 
métaclasse, les problèmes d’encapsulation  ï.e. 
protection des méthodes d’une métaclasse n’ont pas 
été étudié. 


Le fait de devoir initialiser les champs de type sfield 
peut paraitre curieux à certains. Pour que ce soit fait 
automatiquement, il faudrait qu'au moment de 
l’instantiation la classe connaisse les champs (ou 
attributs) et leur type, ce qui impose une structure 
trop lourde à gérer. Lorsqu'on a plusieurs structures, 
il ne faut en aucun cas que les champs portent le 
même nom. Le principe du dictionnaire fait que l’on 
accede toujours à la dernière entrée, cela risque de 
devenir génant parfois. 


Un exemple d’utilisation et conclusion. 


Ci-après, le début d’une application qui a pour 
vocation de gérer les membres … d’un club ! Chaque 
méthode y est exploité au moins une fois. 


A lheure actuelle, je me creuse les méninges pour 
construire un L.O.0O. (prononcer ’lou-ou’). Mais il ne 
faut pas vendre la peau de la bête avant de lavoir 
dégommée nous dit la sagesse populaire alors 
patience ! 

( déclaration de l'adresse ) 


5 FIELD NUMERO 

32 SFIELD LIEU-DIT 
32 SFIELD RUE 

5 FIELD CODEP 

32 SFIELD COMMUNE 
STRUCT LIEU 


( La structure de membre ) 


5 FIELD ADNUM 
20 SFIELD NOM 
20 SFIELD PRENOM 


( structure dans une structure ) 


TAKE LIEU FOR ADRESSE 
STRUCT ADHERENT 
ADHERENT MOI 

MOI SINIT NOM 

MOI SINIT PRENOM 


( accès à l'adresse, observez bien ) 


MOI ADRESSE SINIT RUE 
MOI ADRESSE SINIT LIEU-DIT 
MOI ADRESSE SINIT COMMUNE 


( init. de valeurs ) 
( en interactif ) 


“" Bille" MOI NOM S! 
( par programme ) 


: INI 

" BILLE" MOI NOM S! 

" XAVIER!" MOI PRENOM S! 
203 MOI ADNUM ! ; 


( affichage de ’MOI') 


: AFFI 
MOI WITH 
-" nom! NOM TYPE CR 
." prenom! PRENOM TYPE 
ENWITH 
MOI ADRESSE WITH 
." commune!" COMMUNE TYPE CR 
." code! CODEP ? 
ENWITH ; 
ADHERENT TOI 
MOI TOI STCOPY 


( TOI se retrouve initialisé de facto ) 


: COPIE 
MOI <-> TOI <-> STCOPY ; 


( Les instances sont immédiates, ) 
( Leur valeur est compilée par <->, subtil ) 


Xavier Bille (203) 
Utilitaire de construction des articles 


( ecrit par BILLE Xavier [203] ) 
( Le 25 Mars 1989, version 2.00 ) 


HEX 


€ 
( 
C 


constante pour Le stockage de l'adresse ) 
generale de La structure en cours de ) 
compilation ) 


2FB7F CONSTANT BSTU 


( 


compteur de nibbles dans La structure ) 


CREATE TNIBS5 , 
DECIMAL 


pour compiler l'adresse generale de La structure ) 
usage: record <-> ) 


. <> 


CR) 


mm mr 


?COMP 
[COMPILE] LITERAL ; IMMEDIATE 


constructeur de champs ) 

Le mot construit est de type immediat ) 
MAKE (n -- ) 

CREATE TNIB à, 

TNIB +! IMMEDIATE ; 


declaratif de champ d'une structure ) 
Le champ est de type numerique ) 
usage: n FIELD champ ) 

n est exprime en nibbles ) 


: FIELD (n--) 


= 2 


MAKE 
DOES> BSTU @ ?DUP 
IF SWAP THEN 
à + 
STATE à 
IF [COMPILE] LITERAL THEN ; 


transforme une adresse en une autre de type ) 
string ) 


: &STR ( ad -- | ad+4 ) 


mm 2 


2+ DUP 2+ SWAP Ca ; 


constructeur de champ d’une structure ) 
Le champ est de type string ) 

usage: c SFIELD champ ) 

ou c est un compte d’octets ) 


: SFIELD € c -- ) 


” 


DUP 2* 4 + MAKE C, 
DOES> BSTU à ?DUP 
IF SMAP THEN 
à + 
STATE 4 
IF [COMPILE] LITERAL 
COMPILE &STR 
ELSE &STR THEN ; 


initialisation d'un champ de type ) 
string. Ne s'applique que sur Les instances ) 
usage: record SINIT champ ) 


: SINIT 
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1 >BODY DUP à 
ROT + SWAP 5+ Ca 
OVER C! 

O SWAP 2+ C! ; 


definition d'une structure ) 
intervient a La suite d’une suite de ) 
declarations de champs ) 

usage: STRUCT nomstructure ) 

pour creer une instance: ) 


mm MM 


nomstructure nominstance ) 
STRUCT 
CREATE TNIB Q , 
5 TNIB ! 
DOES> @ DUP 
CREATE , NALLOT IMMEDIATE ; 


calcul de La taille d’une structure, ) 
destine a La declaration de structures imbriquees ) 


mm Am 


usage: TAKE nomstructure FOR champstructure ) 
: TAKE 
! >BODY à ; 
: FOR 
DUP 5+ MAKE , 
DOES> 5+ Q + ; 


utilitaire qui permet de ) 
travailler sur Les champs d’une meme instance ) 
usage: nominstance WITH ) 

-- utilisation des champs --- ) 

ENWITH ) 


mm M 


WITH 

?COMP BSTU ! ; IMMEDIATE 

: ENWITH 

2COMP O BSTU ! ; IMMEDIATE 


as 


utilitaire de copie d'instance a une autre ) 
utilise La taille de La 2eme instance nommee } 
usage: instancel instance2 STCOPY ) 

: STCOPY 

DUP à 

ROT 5+ ROT 5+ 

ROT NMOVE> ; 


mm 







p'e-gra- ma-Lion 
struc = tu re. 
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IMPRESSION D’ETIQUETTES 
POUR LE PROGRAMME "KA" 


Ce petit programme répond à bien des demandes que 
j'ai reçu de la part d'utilisateurs du programme KA 
(IPC Rom) qui voudraient imprimer leurs adresses 
sur papier à étiquettes. 


Le programme est largement configurable quant au 
choix du type d'impression et du type de papier 
disponible, dont les dimensions se mesurent en unités 
lignes et colonnes actives au moment de l'appel du 
programme. À vous de mettre l'imprimante au mode 
désiré par les commandes BOLD, MODE etc. Le 
programme convient pour les imprimantes HP *Jet, 
car il utilise les mots clés de JPC Rom. 


Entrée des paramètres : 


Lines/Label : (au minimum 6) 
Nombre de lignes du début d’une étiquette au début 
de la suivante. 


Label/Lines : (1 à 3) 
Nombre d'étiquettes côte à côte. 


Cols/Label : (attention au débordement à droite!) 
Nombre de colonnes par étiquettes (du début au 
début suivante). 


Left Margin: 
Marge de gauche pour la première étiquette, pour 
aligner, le papier. 


Select: (vide ou chaine de caractères) 

Permet d'extraire un sous ensemble d’adresses selon 
la présence des caractères dans le champ (7) crit du 
programme ka. La comparaison se fait toujours en 
mode Majuscules. Si la chaine donnée est vide, il n’y a 
pas de sélection et l’ensemble des adresses est 
imprimé. 


L'utilisation des champs de chaque adresse est la 
suivante : 


Libellé Contenu Exemple 

Name 22 ligne étiquette Auer/Luzius 

Phone (ignoré) ++4121,881-4824 

Addr1 1% ligne étiquette Monsieur 

Addr2 32 ligne étiquette Ing. forestier EPF/SIA 
Addr3 4® ligne étiquette Préfontaine 


CH-1042 Assens 
Président PPC-Suisse R 
Crit Champ exam pr select. PPC 


Addr4 5° ligne étiquette 
Note  (ignorée) 


Vous pouvez bien entendu modifier le lignes et 
l’ordre d'impression des champs dans l'étiquette, 
raffiner le mode de sélection à votre guise. 


Luzius Auer 
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Programme "LABEL! (Impression d'étiquettes, nécessite JPC ROM) 


100 ! LABEL : Label printing from 1 to 4 across 
110 ! (c) 1989 by Luzius Auer, CH-1042 Assens 
120 INPUT ‘Addrfile!,A$;A$ 

130 H$=STD$(H) à INPUT "Lines/Label: ",H$;H 

140 IF H<é THEN BEEP àQ GOTO 130 

150 M$=STD$S(M) à INPUT "Labels/Line: ",M$;M 

160 IF M<1 OR M>4 THEN BEEP à GOTO 150 

170 W$=STD$(W) à INPUT "Cols/Labels: ",4$;4 

180 L$=STD$(L) à INPUT "Left Margin: ",L$;L Q L=MAX(L,1) 
190 INPUT ‘Select: ",D$;D$ 

200 CALL PRLABEL(A$,H,M,W,L,D$) à END 


1000 SUB PRLABEL(AS$S,H,M,W,L,D$) 

1010 ON ERROR GOTO 1030 

1020 GOTO 1040 

1030 DISP ERRM$ @ END 

1040 IF NOT (LENCA$) AND FILESIZE(AS$) AND ADSIZE(A$)>1) THEN END 
1050 PERF OFF à WRAP OFF @ P=M*W+91 Q PWIDTH INF 

1060 OPTION BASE 0 @ CFLAG 1 à DIM F$(7)191],0$(4)[P] 

1070 DS=UPRC$(TRIMS(D$)) à IF LEN(D$) THEN SFLAG 1 

1080 J=ADSIZE(A$) à 11=1 à 1=0 


1090 IN’: IF 11>J THEN SFLAG 2 à GOTO PR’ 

1100  ADGET A$,F$,11 

1110 IF FLAG(1) AND POS(UPRCS(F$(7)),D$)=0 THEN ’SKIP” 
1120 1=1+1 Q K=(1-1)*W+1 

1130 0$(0)[(K]=TRIMS(F$(2)) 

1140 0$(1)[K]1=MAP$(F$(0),//!,1 1) 

1150 O$(2)[K]1=TRIMS(F$(3)) 

1160  O$(3)[KI=TRIMS(F$C4)) 

1170  O$(4)[KI=TRIMSCF$(5)) 

1180 FOR X=0 TO 4 à O$(X)[K+W-1]=" " à NEXT X 


1190 ISKIP': 11=11+1 
1200 IF MOD(I,M)#0 THEN ’IN' 


1210 PR’: IF LEN(O$(0))<1 THEN 1240 

1220 FOR 1=0 TO 4 à PRINT TAB(L);TRIM$(O$(I)) à O$(1)="" 9 NEXT I 
1230 1=0 à PLF H-5 

1240 IF NOT FLAG(2,0) THEN ’IN’ 

1250 RESET @ PERF ON à WRAP ON 

1260 END 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 


écrivez !"), les nouvelles fonctions, ainsi que les Lex utilisés dans les programmes Basic de ce 
mois-ci. 


CHARLEX 

GINSLEX  GINS XWORD 225123 

MATHLEX  ACOSH XFN 094032 ASINH XFN 094033 
BTD XFN 094034 CBR XFN 094035 
COMPLEX  XWORD 094027 CONJ XFN 094028 
CoSH XFN 094036 DTB$ XFN 094037 
IMPT XFN 094029 MAG XFN 094030 
NEP XFN 094038 REPT XFN 094031 
SINH XFN 094039 


10 CALL MLEX @ SUB MLEX @ SFLAG -1 @ PURGE AH @ INPUT "Nb. d'’octets: ";N à LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$(''AH")) à B=A @ GOSUB 130 

30 Q=1 @ X=0 @ INPUT "000: ",P$;A$ @ C$=A$ à S-0 à GOSUB 90 

40 Q=2 @ X=1 @ GOSUB 80 à AS=-AS&CS @ A=A+37 à N=N*2+37 à Q=3 Q SFLAG 5 @ FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] @ POKE DTH$(A),C$ @ A=A+16-5*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$(X)[31; @ INPUT ": ",P$[1,MOD(N, 16)];C$ à GOSUB 90 

70 POKE DTH$(A),C$ @ POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTH$(X)[3]; @ INPUT ": ",P$;C$ 

90 DISP DTH$(X)[3]; @ INPUT " sm ","---1:D$ 

100 M=S à FOR Z=1 TO LENC(C$) @ M=NUM(C$[Z])+M+1 @ NEXT Z 

110 IF D$=DTH$(MOD(M,4096))[3] THEN GOSUB 130 @ S=M @ RETURN 

120 DISP "Erreur de somme! à BEEP à P$=C$ à POP @ ON Q GOTO 30,40,50,60 

130 P$S=UN----- muse " @ RETURN 
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CHARLEX 624 octets 036: 084E794142400000 1E7 01A: BE0034CBO008BEBS E6A 


037: 00000000002€4559 525 01B: 34C50008BE423440 1D9 
0123456789ABCDEF sm 038: 3200000000000000 83A 01C: 1E2CA13034061E27 555 
039: 0000000000000026 B52 01D: 8501B002E2681034 8B4 
000: 34841425C4548502 35E 03A: 5556587008365556 EB1 01E: 002E2CA34C5000EA C46 
001: 802E000000000000 68D 03B: 5810083645464830 202 01F: 13034062E27D201B FBO 
002: 5E4001EFF0000000 9FD 03C: 0832414248700024 543 020: 003E2681034003E2 30A 
003: FE0000000800001F D57 03D: 5655587008345655 8A0 021: CA34CBO000EA13034 698 
004: F31BF961400032BF OEA 03E: 5810083446454830 BEF 022: C43E2720001D7A3D A29 
005: 38F14A11DB10AD23 484 03F: 0C3042414C700024 F44 023: 48386090AE 064101 D91 
006: 07D532BFB8FD7911 837 040: 5556587008355654 2A1 024: 5B1861A015E10E6E 125 
007: 11AD754D7A101743 BBA 041: 5810083546444830 5F0 025: 1581161101136134 473 
008: 11014D1CB15D0000 F25 042: 0C3142404C700025 946 026: 88F0067CF07011B8 80C 
009: 71450375FF864834 2A2 043: 5455587008355455 CAO 027: 74F215630B200309 B6E 
00A: 5655581008355654 5F9 044: 5810083544454830 FEE 028: 154303F CEB 
008: 5810070507701724 93F 045: 0C3140414C700875 350 
00C: 7700775070077517 C92 046: 14141870000A4972 6A1 MATHLEX 813 octets 
000: 2077040708364545 FEO 047: 40000E3159454E30 A01 
00E: 4A30000449724000 333 048: OC7A0F7949400024 D79 012345678SABCDEF sm 
00F: 0808094A2C180814 69C 049: 5554587000084A71 0D5 
010: A464242008355455 9F6 04A: 40000C523A262D10 436 000: D4144584C4548502 371 
011: 581000054C714000 D3C 04B: 0424587458400875 78D 001: 802E000000000000 6A0 
012: 0C3142404C700832 098 04C: 1415187000094A70 ADD 002: F5600E5817200000 A07 
013: 41414A70002078A0 3F0 04D: 4000083544454830 E21 003: F380000008D20000 D56 
014: 2F30000000000000 718 O4E: 0C3140414C300C74 189 004: 015200FD0073200F OBA 
015: 0000000000000000 A2B 04F: 5655545000054C71 4E0 005: A10C5100F320A720 42A 
016: 0000000000000000 D3B 050: 40000 5D9 006: OFC2088400DD3075 7B0 
017: 0000000000000000 04B 007: 500F8409C100F350 B22 
018: 0000000000000000 358 GINSLEX 305 octets 008: ACO00FE5096500F9 EB9 
019: 0000000000000000 66B 009: 6037500F270F7100 21B 
01A: 0000000000000000 978 0123456789ABCDEF sm O0A: FB7031500F680681 596 
018: 0000000000000000 C8B 00B: 00F91434F4358402 901 
01C: 0000000000000000 F98 000: 7494E435C4548502 378 O0C: 9143594E48412524 C67 
01D: 0000000000000000 2AB 001: 802E000000000000 6A7 00D: 454422534242532D FBE 
01E: 0000000000000000 5BB 002: 662001EB7B700000 AOD 00E: 34F4D405C45485B1 34C 
01F: 0000000000000000 8CB 003: F710000000000000 D3B O0F: 734F4E4A4C1734F4 6EE 
020: 0000000000000000 BDB 004: 035000D77494E435 OA7 010: 3584427444524425 A41 
021: 000000000000080€ F06 005: B71FF8FAB630311F 462 011: 2794D40545D15D41 DCO 
022: 1428080008080A2C 270 006: 966218FD9630311F 7E9 012: 474E15E454056272 132 
023: 180008040E340800 5B9 007: 962908D271308DD9 B75 013: 5540545F173594E4 4AA 
024: 08001E3018000000 8F3 008: 7308D394509FFFF6 F27 014: 84721FF8117A2517 82D 
025: 0000000000000000 C03 009: CFFF208F871F0D21 2E9 015: F8F322B14A083150 BB1 
026: 0000000000000000 F13 O0A: 0A31F0962138FC1D 67F 016: 544AF2CE0E 761371 F4D 
027: 0000000000000000 223 00B: BOACO8F322B1C410 A15 017: 09135822310381C8 2A6 
028: 0201000000010200 539 a 00C: 217F8F83DB010113 D9A 018: 3250B667FD4BAC7E 658 
029: 0000000201020000 84E 00D: 7CA1006E708F83DB 147 019: 8508F7B1818FE83B A09 
02A: 0001000100000002 B62 00E: 0101137CA1001FE9 4BE 01A: 169148D029E04118 D78 
028: 0102010000000000 E76 00F: 5F21478A205111D8 849 018: F83DB0D23182DE8B 136 
02C: 0000000000000000 186 010: 118135D03007A701 BA3 01C: 24E81EA6E8168163 4CC 
02D: 045E755142400101 4D2 011: 113480100E2D5301 EF9 01D: 103AE780DEDODIES 881 
02E: 0101010000000000 7E5 012: 75601101318FC1DB 27A 01E: 14F171B6B4BBA6E4 C37 
02F: 0000000000000000 AF5 013: OACO8F322B1C4102 600 01F: AOCOA6ESDAC50D51 FF3 
030: 0000070507000000 E18 014: 17F8F83DB0101137 98A 020: EA4ESBDB8FB13B1AF 3DB 
031: 00000000083444C4 156 015: CA100110131119D5 CEA 021: 68D612F000AF2233 75D 
032: 44400D7901112D70 4B6 016: 1123027F107FF085 061 022: B64828182817253E AD5 
033: 050D750509700000 800 017: 179011AA49F30E 15 3E7 023: 8117720BCC590811 E4F 
034: 0D70000000384540 B43 018: CO8D84A800A1C181 77A 024: 7A1076042EAF2AF3 1F3 
035: 4020014E322E3140 E97 019: D243002034801008 AC1 025: B07B0777146AD376 583 
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026: 
027: 
028: 
029: 
O2A: 
028: 
O2C: 
02D: 
O2E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
03A: 
038: 


148F65FC08F004D0 
8FE33C08DC14D081 
172308F033C05018 
1171208F723C08F4 
35C07FCF72A38F18 
DC061837DB3AF68F 
439C08F004D08DA3 
4C08117E93104AC0 
8FFB6CO3F3333333 
333333330AF7D2CE 
8FA72D011CACA672 
3318396140008F15 
681258FDD4101B0C 
8F214A8F3E320A72 
A2768F148B0138CD 
0781302808096E 12 
863F1F701000258F 
8A41000119704111 
85A2051111188FF5 
3C070B2155711011 
ABFF53C07B927E01 
2031E070B204258F 


7 


920 
CCD 
02F 
3AA 
75F 
B23 
EBC 
23E 
5DB 
96F 
D24 
07E 
415 
780 
B50 
EAC 
227 
56E 
8F3 
C&A 
FFB 
36A 


03C: 
030: 
O3E : 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
O4A: 
048: 
04C: 
04D: 
O4E : 
04F: 
050: 
051: 


8A410821AC1A4DA4 
D111D801051198CE 
1557118BCE51C051 
101187C527F52111 
1147E42715211111 
B7042734211011A7 
2328D459E07FBFBC 
C79127E02155772E 
F8F796C077DF7EF1 
675F759F72F18F90 
3D0113AF678E1AF9 
12210BAF678D176F 
D79C18F7E3D073D1 
70017FA11557738F 
BCE8F796C0757F7C 
917DA177B16DEEAF 
ABFO064A11CF13713 
58BB8015170380D4 
490B4000D400030€ 
1F098F215508FFAD 
AOBFO5CA01098AC7 
0E48508FD9DA08F9 


706 
A94 
E19 


4DF 
83A 
BFE 
F82 
35A 
718 
AC6 
Eé2 
21A 
5c3 
997 
D6A 
OFE 
48c 
7EF 
BA3 
F48 
305 


052: 
053: 
054: 
055: 
056: 
057: 
058: 
059: 
O5A: 
05B: 
05C: 
05D: 
05E : 
05F: 
060: 
061: 
062: 
063: 
064: 
065: 
066: 
067: 


3EA046D8D84A808D 
782508DF82301111 
30156716F717F156 
76ASE7C201711577 
17F154718F157715 
470B135624E7600A 
F240E137D7135180 
88F2156418E14613 
416FB46B464008D6 
cc7181175808DC32 
F0811777051F118B 
CE78EE31E07C805C 
D8FC8CB044C60CD8 
117A40AF25F31184 
938117730AC0AF65 
920570308F7E3D0A 
F67F20793070208F 
435C07E008D832F0 
8DC1DB08D499C080 
363C08D234C08DC2 
9E08D5F3D08D4058 
18DCA4CO8DDF8E0 
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689 
A22 
D96 
117 
48F 
818 
B9B 
F10 
29F 
62F 
9AC 
D70 
142 
4C5 
852 
BF2 
F77 
301 
éc8 
A60 
E09 
143 
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Dears friends, 


First, we have a bad thing to say to the HP-71 users. There was a bug in the last issue, or perhaps it 
was our annual Aprils Fish ! In that case, I understand why I see a whale when I execute the GINs 
function. 

More seriously, we have decided to make a HP-41 programs library, as we do for the HP-71. But we 
have not the copies of the olds HP-41 programs. If you have any of them, we will be very graitful if 
you can send a copy. 


In the general pages, we have three SOS. First, P. Magne seeks how to make files on HP-41 for store 
addresses (and visit dates) of customers. He seeks also programs for help him in the usage of his 
Falcon 10. In the second SOS, Michel Dupas asks if anybody have translated the navigation program 
of the HP-41s Navigation Module, on the HP-28. The third, is a case of emergency. P. Luberne want 
to buy an HP-41CX, because somebody has stollen his own. 

There will be an HP-71 successor ? If yes, with which operating system ? Which microprocessor ? 
How much memory ? What sort of display and peripherals ? The folowing article don’t give answers, 
but we hope that it help you to understand what are the problems of HP’s engineers, if they want to 
do an high level pocket computer. We give also, in the begining of this articles the officals reasons of 
the arrest of the HP-71, HP-IL and many of the perpiherals. 

In June, there will be a new HP calculator. It is the HP-21S. Conceived for the students, it brings a lot 
of statisticals, probabilities, and mathematicals functions. 


The HP-28 section contains one programe. It is the Baccara game. You must play versus the 
machine, if you have enough money ! 


In the next section, J.L. Attenoux wrote a navigation program, who computes cape and distance 
beetwin two points, given by longitude and latitude, with the well known method of "Loxodromie".… 


The HP-71 section begins with a sequel of an article issued in JPC 55, written by Gigi Filippini, who 
brought complex capabilities on the HP-71. This month, with this functions, you can have also 
Hyperbolics and binary<-> decimal conversions. Next, the new version of the GINS function is more 
fast, more small, and there is no fish in the "coin des Lex" section ! 

For the Forth users, Xavier Bille explains how to add the struct concept of the C language, in Forth. 
It uses the possibility of Auto-compilation of this language. 

Finaly, If you have JPC Rom, you can print adresses stored by the KA program, include in this 
module, with the LABEL program written by Luzius Auer, the president of "PPC Suisse Romande". 


Its all for this month, Happy reading ! 
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